A217380 Numbers k such that 8^k - 7 is prime.
13, 661, 773, 833, 4273, 40613, 302913
Offset: 1
Programs
-
Mathematica
Select[Range[4000], PrimeQ[8^# - 7] &]
-
PARI
is(n)=ispseudoprime(8^n-7) \\ Charles R Greathouse IV, Jun 13 2017
Extensions
a(7) using A059609 from Michael S. Branicky, Sep 15 2024
Comments