login
A104835
Primes from merging of 15 successive digits in decimal expansion of Pi.
1
841971693993751, 384460955058223, 596446229489549, 19091456485669, 456485669234603, 610454326648213, 104543266482133, 488204665213841, 305727036575959, 270365759591953, 185480744623799, 227938183011949
OFFSET
1,1
LINKS
MATHEMATICA
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 700][[1]], 15, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 27 2005
STATUS
approved