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