OFFSET
1,3
COMMENTS
a(16) > 10^5. - Robert Price, Jan 24 2014
MATHEMATICA
Select[Range[0, 5000], PrimeQ[7^# + 6] &]
PROG
(PARI) for(n=1, 5000, if(isprime(7^n+6), print1(n", ")))
(Magma) /* The code produces the sequence up to 315: */ [n: n in [0..2000] | IsPrime(7^n+6)];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Oct 01 2012
EXTENSIONS
a(9)-a(15) from Robert Price, Jan 24 2014
STATUS
approved