OFFSET
0,5
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..14638 (row 0..100)
EXAMPLE
Table begins:
1;
1, 1;
1, 2, 1;
1, 2, 2, 2, 1;
1, 3, 4, 4, 3, 1;
1, 3, 5, 7, 7, 5, 3, 1;
...
MATHEMATICA
row[n_] := CoefficientList[Product[1 + x^DigitCount[k, 2, 1], {k, 1, n}], x]; Table[row[n], {n, 0, 10}] // Flatten (* Amiram Eldar, Jul 22 2023 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Paul Barry, Jan 08 2005
STATUS
approved