A062652 Numbers k such that 86^k - 85^k is prime.
5, 11, 103, 227, 1637, 9677, 41597
Offset: 1
Programs
-
Mathematica
Select[Range[0, 300], If[PrimeQ[#], PrimeQ[86^# - 85^#]] &] (* Robert Price, Apr 14 2015 *)
-
PARI
is(n)=ispseudoprime(86^n-85^n) \\ Charles R Greathouse IV, Jun 12 2017
Extensions
a(7) from Robert Price (computer run by Adam Marciniec), Apr 14 2015
Comments