OFFSET
1,1
MATHEMATICA
a[n_] := Block[{k=1}, While[! AllTrue[k Range[1, 2 n - 1, 2] - 1, PrimeQ], k++]; k]; Array[a, 7] (* Giovanni Resta, Apr 01 2017 *)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Farideh Firoozbakht, Sep 16 2009
EXTENSIONS
a(10) from Zak Seidov, Sep 21 2009
a(11)-a(14) from Giovanni Resta, Mar 31 2017
STATUS
approved