login
A374097
a(n) = A196563(n)*A196564(n).
2
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2
OFFSET
0,101
COMMENTS
More than the usual number of terms are shown in order to distinguish this sequence from A180160, from which it first differs at n = 100.
MATHEMATICA
A374097[n_] := #*(IntegerLength[n] - #) & [Total[Mod[IntegerDigits[n], 2]]];
Array[A374097, 120, 0]
CROSSREFS
Cf. A055642, A059708 (positions of zeros), A180160, A196563, A196564.
Sequence in context: A035931 A330634 A254524 * A132211 A067441 A357299
KEYWORD
nonn,base,easy
AUTHOR
Paolo Xausa, Jun 28 2024
STATUS
approved