OFFSET
1,3
COMMENTS
No further terms up to 20000. - Felix Fröhlich, Oct 29 2014
No further terms up to 24000. - Felix Fröhlich, Jan 22 2015
No further terms up to 50000. - Michael S. Branicky, Oct 09 2024
MATHEMATICA
Select[Range[0, 10000], PrimeQ[19^# + 4] &] (* Vincenzo Librandi, Oct 16 2014 *)
PROG
(PARI) for(n=0, 10^5, if(ispseudoprime(19^n+4), print1(n, ", ")))
(Magma) [n: n in [0..1000] | IsPrime(19^n+4)]; // Vincenzo Librandi, Oct 16 2014
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Felix Fröhlich, Jun 04 2014
EXTENSIONS
a(1)-a(2) prepended by N. J. A. Sloane, Jun 18 2014
a(9)-a(10) from Felix Fröhlich, Oct 16 2014
STATUS
approved