OFFSET
1,3
COMMENTS
No further terms up to 10000.
No further terms up to 10^5. - Tyler NeSmith, Jan 21 2021
MATHEMATICA
a247166[n_Integer] := Select[Range[n], PrimeQ[15^# + 4] &]; a247166[10^4] (* Michael De Vlieger, Dec 03 2014 *)
PROG
(PARI) for(n=0, 1e5, if(ispseudoprime(15^n+4), print1(n, ", ")))
(Magma) [n: n in [0..300] | IsPrime(15^n+4)]; // Vincenzo Librandi, Dec 01 2015
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Felix Fröhlich, Dec 01 2014
EXTENSIONS
Offset changed to 1 by Georg Fischer, Sep 26 2022
STATUS
approved