OFFSET
1,1
COMMENTS
a(21) > 10^5.
EXAMPLE
8 is a member since 4^8 - 3^9 = 65536-19683 = 45853 which is a prime number.
MATHEMATICA
Select[Range[4, 100000], PrimeQ[4^# - 3^(# + 1)] &]
PROG
(PARI) lista(nn) = for(n=1, nn, if(ispseudoprime(4^n-3^(n+1)), print1(n, ", "))); \\ Altug Alkan, Apr 24 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert Price, Apr 24 2016
EXTENSIONS
Typo in a(11) corrected by Georg Fischer, Mar 19 2022
STATUS
approved