|
%I #13 Jan 28 2018 13:21:32
%S 43,59,661,1597,3853,6073,7723,12097
%N Numbers n such that 101^n - 100^n is prime.
%C Terms found by Mike Oakes. No more term <= 10000.
%t Select[Prime[Range[PrimePi[1000]]], PrimeQ[101^# - 100^#] &] (* _T. D. Noe_, Aug 15 2012 *)
%o (PARI) is(n)=ispseudoprime(101^n-100^n) \\ _Charles R Greathouse IV_, Jun 06 2017
%K nonn,hard
%O 1,1
%A _Jean-Louis Charton_, Aug 15 2012
%E a(8) from _Tim Johannes Ohrtmann_, Jan 28 2018
| 