login
A306848
Product of first n odd nonprimes, a(n) = Product_{k=1..n} A071904(k).
0
1, 9, 135, 2835, 70875, 1913625, 63149625, 2210236875, 86199238125, 3878965715625, 190069320065625, 9693535323346875, 533144442784078125, 30389233238692453125, 1914521694037624546875, 124443910112445595546875, 8586629797758746092734375
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
STATUS
approved