OFFSET
1,1
COMMENTS
Corresponding primes are 9371, 34458401, ... .
a(20) > 50000.
LINKS
MATHEMATICA
Select[Range[0, 50000], If[#!! - 1024 > 0, PrimeQ[#!! - 1024]] &]
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Robert Price, Nov 06 2015
STATUS
approved