OFFSET
1,1
COMMENTS
a(24) > 10^5. - Robert Price, Mar 23 2016
MATHEMATICA
Do[ If[ PrimeQ[7^n + 6^(n - 1)], Print[n]], {n, 4000}]
PROG
(PARI) lista(nn) = {for(n=1, nn, if(ispseudoprime(7^n+6^(n-1)), print1(n, ", "))); } \\ Altug Alkan, Mar 23 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Herman H. Rosenfeld (herm3(AT)pacbell.net) and Robert G. Wilson v, Jun 18 2004
EXTENSIONS
a(19)-a(23) from Robert Price, Mar 23 2016
STATUS
approved