login
A104826
Primes from merging of 6 successive digits in decimal expansion of Pi.
31
314159, 358979, 589793, 462643, 971693, 169399, 592307, 348253, 534211, 808651, 844609, 822317, 725359, 502841, 102701, 288109, 612847, 337867, 104543, 815209, 925409, 917153, 665213, 951941
OFFSET
1,1
COMMENTS
Leading zeros are not permitted, so each term is 6 digits in length. - Harvey P. Dale, Oct 23 2011
LINKS
MATHEMATICA
With[{len=6}, FromDigits/@Select[Partition[RealDigits[Pi, 10, 1000][[1]], len, 1], PrimeQ[FromDigits[#]]&&IntegerLength[FromDigits[#]]==len&]] (* Harvey P. Dale, Oct 23 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 27 2005
STATUS
approved