OFFSET
1,3
COMMENTS
Next term is > 15000 if it exists.
Next term is > 100000 if it exists. - Michael S. Branicky, Oct 10 2024
MATHEMATICA
Join[{0, 1}, Select[2 Range[500], PrimeQ[7^# + 6^#] &]]
PROG
(Magma) /* The program does not work for n>2700: */ [n: n in [0..1000]| IsPrime(7^n + 6^n)];
(PARI) for(n=0, 1000, if(isprime(7^n + 6^n), print1(n, ", ")))
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Jan 10 2013
STATUS
approved