OFFSET
1,1
COMMENTS
Corresponding primes are 433, 9883, 13749310063, 316234142713, ... .
a(22) > 50000.
LINKS
MATHEMATICA
Select[Range[0, 50000], If[#!! - 512 > 0, PrimeQ[#!! - 512]] &]
PROG
(PARI) for(n=1, 1e4, if (ispseudoprime(m=prod(k=0, (n-1)\2, n - 2*k) - 512), print1(n", "))) \\ Altug Alkan, Nov 06 2015
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Robert Price, Nov 05 2015
STATUS
approved