|
%I #33 Oct 08 2023 19:14:06
%S 0,0,4,1,0,0,4,3,0,0,4,7,0,0,5,3,0,0,6,1,0,0,7,1,0,0,8,3,0,0,9,7,0,1,
%T 1,3,0,1,3,1,0,1,5,1,0,1,7,3,0,1,9,7,0,2,2,3,0,2,5,1,0,2,8,1,0,3,1,3,
%U 0,3,4,7,0,3,8,3,0,4,2,1,0,4,6,1,0,5
%N Decimal expansion of 4099200041/9999^3.
%H Paolo Xausa, <a href="/A297785/b297785.txt">Table of n, a(n) for n = 0..10000</a>
%H John D. Cook, <a href="https://www.johndcook.com/blog/2013/10/12/prime-generating-fractions/">Prime generating fractions</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomial</a>
%F Sum_{k>=0} 10^(-4*k-4)*A202018(k) = 4099200041/9999^3.
%e 0.0041004300470053006100710083009701130131015101730197...
%t Join[{0,0},First[RealDigits[4099200041/9999^3,10,100]]] (* _Paolo Xausa_, Oct 08 2023 *)
%Y Cf. A005846, A202018, A272066, A297786, A297787.
%K nonn,cons
%O 0,3
%A _Seiichi Manyama_, Jan 05 2018
|
