OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[5000], PrimeQ[8^# - 3] &]
PROG
(PARI) is(n)=ispseudoprime(8^n-3) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Oct 02 2012
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
STATUS
approved