OFFSET
1,1
COMMENTS
EXAMPLE
a(1) = 1001 = 7 * 11 * 13.
a(2) = 4199 = 13 * 17 * 19.
a(3) = 65231 = 37 * 41 * 43, etc.
MATHEMATICA
Map[Times @@ NextPrime[#, {0, 1, 2}] &, Select[Prime@ Range[320], AllTrue[{# + 4, # + 6}, PrimeQ] &]]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Jun 29 2024
STATUS
approved