OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[2000], PrimeQ[# 8^# + 1] &]
PROG
(Magma) [n: n in [0..2000] | IsPrime(n*8^n+1)];
(PARI) is(n)=ispseudoprime(n*8^n+1) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, May 08 2014
EXTENSIONS
a(5)-a(7) from Loeh's list (see Links) - Bruno Berselli, May 08 2014
STATUS
approved