|
|
A308501
|
|
Partial products of odious numbers.
|
|
1
|
|
|
1, 1, 2, 8, 56, 448, 4928, 64064, 896896, 14350336, 272656384, 5725784064, 125967249408, 3149181235200, 81878712115200, 2292603939225600, 71070722115993600, 2274263107711795200, 79599208769912832000, 2945170724486774784000, 111916487530497441792000, 4588575988750395113472000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Product_{k=1..n} A000069(k).
|
|
MATHEMATICA
|
Join[{1}, FoldList[Times, Select[Range[0, 50], OddQ[DigitCount[#, 2, 1]]&]]] (* Harvey P. Dale, Aug 09 2024 *)
|
|
PROG
|
(PARI) f(n) = 2*n - 1 - hammingweight(n-1)%2; \\ A000069
a(n) = prod(k=1, n, f(k))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|