|
%I #15 Dec 14 2014 02:05:29
%S 653,643,433,383,419,197,971,937,751,97,307,89,421,211,67,821,823,647,
%T 709,223,317,359,811,701,19,193,521,211,229,881,109,97,659,593,461,
%U 823,233,337,271,19,821,607,491,127
%N Primes from merging of three successive digits in decimal expansion of Pi.
%C Leading zeros are permitted, so not every term is 3 digits in length. - _Harvey P. Dale_, Oct 24 2011
%H Vincenzo Librandi, <a href="/A104823/b104823.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 3, 1]}, Select[pi, PrimeQ]] (* _Vincenzo Librandi_, Apr 23 2013 *)
%Y Cf. A104819-A104842.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 27 2005
|
