OEIS哀悼西蒙斯并感谢西蒙斯基金会对包括OEIS在内的许多科学分支研究的支持。

登录

OEIS由支持OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A248930型 c=2*Product_{prime p==3（mod 4）}（1-2/（p*（p-1）^2））的十进制展开式，这是一个与积分阿波罗圆填充问题有关的常数。 14 1, 6, 4, 9, 3, 3, 7, 6, 8, 9, 0, 9, 8, 0, 3, 0, 7, 0, 1, 0, 2, 5, 9, 4, 2, 9, 3, 3, 3, 6, 0, 1, 7, 8, 9, 6, 3, 6, 6, 9, 2, 3, 5, 7, 6, 6, 2, 5, 6, 6, 1, 1, 4, 4, 9, 0, 5, 7, 7, 2, 4, 8, 8, 3, 8, 4, 2, 5, 6, 4, 5, 1, 8, 9, 4, 8, 0, 7, 7, 2, 5, 2, 0, 6, 9, 0, 2, 0, 4, 2, 4, 8, 5, 2, 5, 3, 6, 0, 1, 0, 2, 7, 0, 1, 7 (列表;常数;图表;参考文献;听;历史;文本;内部格式) 抵消 1,2 链接 n=1..105时的n、a（n）表。 史蒂文·R·芬奇，具有整数曲率的阿波罗圆，第6页。[经作者许可，缓存副本] Elena Fuchs和Katherine Sanden，积分阿波罗圆填料的一些实验，arXiv:1001.1406[math.NT]第7页。 例子 1.64933768909803... 数学 kmax=25；Do[P[k]=乘积[P=素数[n]；如果[Mod[p，4]==3，1-2/（p*（p-1）^2）//N[#，40]&，1]，{N，1，2^k}]；打印[“P（”，k，“）=”，P[k]]，{k，10，kmax}]；c=2*P[kmax]；真数字[c，10，15]//第一个 (* -------------------------------------------------------------------------- *) $MaxExtraPrecision=1000；数字=121； f[p]：=（1-2/（p*（p-1）^2））； coefs=Rest[CoefficientList[Series[Log[f[1/x]]，{x，0，1000}]，x]]； S[m_，n_，S_]：=（t=1；总和=0；difs=1；当[Abs[difs]>10^（-数字-5）||difs==0，difs=（MoebiusMu[t]/t）*Log[If[S*t==1，DirichletL[m，n，S*t]，总和[Zeta[S*t，j/m]*Dirichlet字符[m，n，j]^t，{j，1，m}]/m^（S*t）]]；总和=总和+difs；t++]；总额）； P[m_，n_，s_]：=1/EulerPhi[m]*和[Conjugate[DirichletCharacter[m，r，n]]*s[m，r，s]，{r，1，EulerPhi[m]}]+和[If[GCD[P，m]>1&&Mod[P，m]==n，1/P^s，0]，{P，1，m}]； m=2；集水坑=0；difp=1；当[Abs[difp]>10^（-数字-5）||difp==0时，difp=coefs[[m]]*P[4，3，m]；集水坑=集水坑+difp；m++]； RealDigits[Chop[N[2*Exp[spoot]，数字]]，10，数字-1][[1]](*瓦茨拉夫·科特索维奇2021年1月16日*） 交叉参考 囊性纤维变性。A002145号,A052483号,A189226号,A189227号. 上下文中的序列：A179258号 A365937型 A353769型*A021158号 2013年2月35日 A019931号 相邻序列：A248927型 A248928型 A248929型*A248931型 A248932型 A248933型 关键词 非n,欺骗 作者 Jean-François Alcover公司2014年10月17日 扩展 来自的更多数字瓦茨拉夫·科特索维奇2020年6月27日 状态 经核准的

查找|欢迎光临|维基|寄存器|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

最后修改时间：美国东部时间2024年6月4日15:08。包含373099个序列。（在oeis4上运行。）