OFFSET
1,1
COMMENTS
Note that 987654321 is the largest pandigital number in base-10, omitting 0.
MATHEMATICA
Select[Range[1000], PrimeQ[10^# + 987654321] &] (* Vincenzo Librandi, Oct 12 2014 *)
PROG
(PARI) for(n=1, 10^4, if(ispseudoprime(10^n+987654321), print1(n, ", ")))
(Magma) [n: n in [1..500] | IsPrime(10^n+987654321)]; // Vincenzo Librandi, Oct 12 2014
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Derek Orr, Oct 05 2014
EXTENSIONS
a(9) corrected and a(19)-a(23) added by Robert Price, Dec 05 2019
STATUS
approved