|
%I #14 Dec 14 2014 06:20:26
%S 653,643,433,383,419,197,971,937,751,307,421,211,821,823,647,709,223,
%T 317,359,811,701,193,521,211,229,881,109,659,593,461,823,233,337,271,
%U 821,607,491,127,587,631,881,881,829,409,643,367,113,521,941,151,433,727
%N Primes from merging of 3 successive digits in decimal expansion of Pi.
%C Leading zeros are not permitted, so each term is 3 digits in length.
%H Vincenzo Librandi, <a href="/A198170/b198170.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[FromDigits/@Partition[RealDigits[Pi,10,1000][[1]],3,1], IntegerLength[#]==3&&PrimeQ[#]&]
%Y Cf. A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812, A104824, A104825, A104826, A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A198161, A198162, A198163, A198164, A198165, A198166, A198167, A198168, A198169, A198171, A198172, A198173, A198174, A198175, A104851, A198177.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Oct 21 2011
|
