A306848 Product of first n odd nonprimes, a(n) = Product_{k=1..n} A071904(k).

1, 9, 135, 2835, 70875, 1913625, 63149625, 2210236875, 86199238125, 3878965715625, 190069320065625, 9693535323346875, 533144442784078125, 30389233238692453125, 1914521694037624546875, 124443910112445595546875, 8586629797758746092734375

Offset: 0

Author

Zhandos Mambetaliyev, Mar 13 2019

Keywords

• nonn

Crossrefs

Cf. A071904, A036691, A002866, A001147.

Programs

Mathematica

With[{nn = 70}, FoldList[Times, Complement[Range[1, nn, 2], Prime@ Range[2, PrimePi@ nn]]]] (* Michael De Vlieger, Apr 21 2019 *)

PARI

lista(nn) = {my(p=1); print1(p, ", "); forcomposite (n=1, nn, if (n%2, p *= n; print1(p, ", ")); ); } \\ Michel Marcus, Mar 13 2019