OFFSET
1,1
COMMENTS
a(14) > 20000.
a(17) > 2*10^5. - Robert Price, Oct 26 2019
MATHEMATICA
Select[Range[10^4], PrimeQ[10^# + 123456789] &] (* Robert Price, Sep 08 2019 *)
PROG
(PARI) for(n=1, 10^4, if(ispseudoprime(10^n + 123456789), print1(n, ", ")))
(Magma) [n: n in [1..500] | IsPrime(10^n + 123456789)]; // Vincenzo Librandi, Oct 12 2014
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
Derek Orr, Oct 05 2014
EXTENSIONS
a(14)-a(16) from Robert Price, Oct 26 2019
STATUS
approved