OFFSET
1,1
COMMENTS
a(16) > 140000. - Michael S. Branicky, Jul 27 2024
MATHEMATICA
Do[ If[ PrimeQ[2^n - 3n], Print[n]], {n, 1, 15000, 2}]
PROG
(PARI) is(k) = ispseudoprime(2^k-3*k); \\ Jinyuan Wang, Feb 03 2020
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, May 26 2004
EXTENSIONS
a(12)-a(14) from Jinyuan Wang, Feb 03 2020
a(15) from Michael S. Branicky, May 21 2023
STATUS
approved