OFFSET
1,2
COMMENTS
Corresponds to the numbers 10987, 100999897, 1000999998997, 10000999999989997, ...
MATHEMATICA
fQ[n_] := PrimeQ[10^(4 n) + 10^(3 n) - 10^n - 3]; k = 1; lst = {}; While[k < 3300, If[ fQ@k, AppendTo[lst, k]]; k++ ]; lst (* Robert G. Wilson v, Feb 15 2010 *)
PROG
(PARI) is(n)=ispseudoprime(10^4*n+10^3*n-10^n-3) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
James G. Merickel, Feb 07 2010
STATUS
approved