|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
|