OFFSET
0,4
MATHEMATICA
Table[Length[Select[IntegerDigits[Product[2i+2Floor[(i-3)/4]+1, {i, n}]], Positive]], {n, 0, 66}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Stefano Spezia, Dec 09 2022
STATUS
approved