A215538 Numbers k such that 101^k - 100^k is prime.
43, 59, 661, 1597, 3853, 6073, 7723, 12097
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[PrimePi[1000]]], PrimeQ[101^# - 100^#] &] (* T. D. Noe, Aug 15 2012 *)
-
PARI
is(n)=ispseudoprime(101^n-100^n) \\ Charles R Greathouse IV, Jun 06 2017
Extensions
a(8) from Tim Johannes Ohrtmann, Jan 28 2018
Comments