A269544 Numbers n such that 7*8^n + 1 is prime.
2, 40, 58, 60, 130, 144, 752, 7462, 18162, 69028, 187272, 268178, 270410, 497284, 713304, 722600, 1005254
Offset: 1
Programs
-
Mathematica
Select[Range[0, 200000,2], PrimeQ[7*8^# + 1] &]
-
PARI
is(n)=ispseudoprime(7*8^n+1) \\ Charles R Greathouse IV, Jun 13 2017
Formula
a(n) = A032353(n)/3 where this is an integer.
Comments