login
A104824
Primes from merging of 4 successive digits in decimal expansion of Pi.
31
4159, 5897, 9323, 8419, 1693, 8209, 9749, 5923, 2089, 2803, 4211, 7253, 8111, 1117, 7019, 193, 8521, 6229, 1097, 6659, 8233, 7867, 1201, 9091, 5669, 4603, 4861, 3607, 4127, 631, 5881, 5209, 9209, 4091, 3643, 5903, 11, 113, 6521, 1511, 1609, 9433
OFFSET
1,1
COMMENTS
Leading zeros permitted. - Harvey P. Dale, Dec 09 2013
LINKS
MATHEMATICA
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 4, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 27 2005
STATUS
approved