OFFSET
1,1
COMMENTS
Terms found by Mike Oakes. No more term <= 10000.
MATHEMATICA
Select[Prime[Range[PrimePi[1000]]], PrimeQ[101^# - 100^#] &] (* T. D. Noe, Aug 15 2012 *)
PROG
(PARI) is(n)=ispseudoprime(101^n-100^n) \\ Charles R Greathouse IV, Jun 06 2017
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
Jean-Louis Charton, Aug 15 2012
EXTENSIONS
a(8) from Tim Johannes Ohrtmann, Jan 28 2018
STATUS
approved