|
%I #6 Jun 26 2013 11:28:49
%S 4,1,9,6,8,7,3,4,4,7,5,1,6,3,7,2,4,5,8,0,2,9,2,2,0,8,1,8,5,8,6,5,3,7,
%T 2,4,4,1,0,2,5,6,5,9,8,9,6,4,4,2,8,6,2,4,6,6,1,4,6,1,3,4,0,0,3,8,9,2,
%U 6,3,9,6,5,8,5,8,5,6,3,3,5,0,8,9,7,0,4,3,6,7,6,2,9,8,1,3,6,8,0,1,1,0,3,7,2
%N Prime(n)-th digit after decimal point in decimal expansion of Pi.
%e Pi=3.141592653589793... the 2nd digit is 4, 3rd digit is 1, 5th digit is 9 and the 7th digit is 6. so we have 4, 1, 9, 6,....
%t nn=110;With[{pidigs=Rest[RealDigits[Pi,10,Prime[nn]+50][[1]]]},Flatten[ Table[Take[pidigs,{n,n}],{n,Prime[Range[nn]]}]]] (* _Harvey P. Dale_, Jun 26 2013 *)
%Y Cf. A000796.
%K easy,nonn,base
%O 0,1
%A Y. Kelly Itakura (yitkr(AT)mta.ca), Aug 22 2002
%E More terms from _Sascha Kurz_, Aug 24 2002
|
