OFFSET
1,1
COMMENTS
No additional terms up to 10000. - Harvey P. Dale, Aug 28 2019
LINKS
Eric Weisstein's World of Mathematics, Apery-Prime
Eric Weisstein's World of Mathematics, Integer Sequence Primes
EXAMPLE
zeta(3) = 1.2020569031595..., 1202056903--the concatenation of the first 10 decimal digits--is prime, so a(1)=10.
MATHEMATICA
Module[{nn=10000, z}, z=RealDigits[Zeta[3], 10, nn][[1]]; Select[Range[nn], PrimeQ[FromDigits[Take[z, #]]]&]] (* Harvey P. Dale, Aug 28 2019 *)
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
Eric W. Weisstein, May 14 2006
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 27 2010
STATUS
approved