%I#26 2015年12月19日23:54:06
%S 0,4,4,8,16,18,5,1,1,1,7,1,1,6,2,9,58,1,3,4,2,1,1,2,4,4,1,5,
%T 2,1,1,87,16,1,2,1,2,1,1,1,1,3,1,8,1,3,1,1,6,1,13,27,1,3,1,41,2,1,1,
%U 19,1,1,1,1,3,1,1484,1,4,19,3,6,8,1,5,1,17,9,2,3,5,251468,1,1,3,1
%N Copeland-Erdős常数的连分式0.235711…(串联素数)。
%H M.F.Hasler,n的表格,n=0..5000的a(n)</a>
%H G.Xiao,<a href=“http://wims.unice.fr/~wims/en_tool~number~contfrac.en.html“>contfrac</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/Copeland-ErdosConstant.html“>Copeland-Erdős常量</a>
%H<a href=“/index/Con#confC”>常数连分式的索引项</a>
%e 0.23571113171923293137414347…=0+1/(4+1/(4+1/(8+1/(16+…)))
%t取[ContinuedFraction@FromDigits[{展平[IntegerDigits[Prime@范围@47]],0}],95](*_Robert G.Wilson v_,2013年10月17日*)
%o(PARI)
%o s=concat(向量(2000,i,Str(质数(i)));c=控制(eval(s)/10^#s);
%o c2=控制((eval(s)+10^9)/10^#s);
%o表示(i=1,#c,c[i]!=c2[i]&return(Str(“对于n>=”i-1,术语可能是错误的));
%o写入(“b030168.txt”,i-1,“”,c[i])\\_M.F.Hasler_,2009年10月13日
%o(PARI){default(realprecision,2100);x=0.0;m=0;对于prime(p=24000,n=1+floor(log(p)/log(10));x=p+x*10^n;m+=n;);x=contfrac(x/10^m);对于(n=1,2001,write(“b030168.txt”,n-1,“”,x[n]));}\\_Harry J.Smith_,2009年4月30日
%Y参见A033308(十进制展开式)、A072754(收敛的分子)和A072755(收敛的分母)。
%K nonn,cofr,基础
%0、2
%A _瑞克·W·魏斯坦_
|