OFFSET
1,1
MATHEMATICA
a[n_] := Block[{k = If[n < 6, 1, 5], s}, s = k; While[! AllTrue[k 2 Range[n] - 1, PrimeQ], k += s]; k]; Array[a, 8] (* Giovanni Resta, Apr 01 2017 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Artur Jasinski, Nov 04 2006
EXTENSIONS
Corrected and extended by Don Reble, Nov 05 2006
a(12)-a(14) from Giovanni Resta, Apr 01 2017
STATUS
approved