A217353 Numbers k such that 8^k - 3 is prime.
1, 2, 3, 4, 8, 50, 58, 71, 112, 1079, 1318, 2252, 3524, 4800, 5560, 6919, 11484, 12184, 41099, 94711, 375460, 449248
Offset: 1
Programs
-
Mathematica
Select[Range[5000], PrimeQ[8^# - 3] &]
-
PARI
is(n)=ispseudoprime(8^n-3) \\ Charles R Greathouse IV, May 22 2017
Extensions
a(15)-a(17), a(19)-a(20) using A050414 by Bruno Berselli, Oct 02 2012
a(18), a(21)-a(22) using A050414 by Michael S. Branicky, Sep 15 2024
Comments