OFFSET
0,2
MATHEMATICA
With[{nn = 70}, FoldList[Times, Complement[Range[1, nn, 2], Prime@ Range[2, PrimePi@ nn]]]] (* Michael De Vlieger, Apr 21 2019 *)
PROG
(PARI) lista(nn) = {my(p=1); print1(p, ", "); forcomposite (n=1, nn, if (n%2, p *= n; print1(p, ", ")); ); } \\ Michel Marcus, Mar 13 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhandos Mambetaliyev, Mar 13 2019
STATUS
approved