A178620 Sum of binary digits ( = sum of ternary digits ) of terms in A037301.

0, 1, 2, 3, 2, 3, 2, 3, 2, 3, 3, 2, 3, 4, 5, 4, 5, 4, 5, 4, 4, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 6, 7, 3, 3, 4, 5, 5, 4, 5, 4, 5, 4, 5, 5, 6, 7, 4, 4, 5, 5, 5, 4, 5, 5, 4, 5, 6, 7, 5, 7, 6, 4, 5, 4, 5, 6, 7, 6, 7, 6, 7, 6, 7, 7, 7, 6, 4, 5, 4, 5, 6, 7, 4, 5, 5, 6, 7, 6, 7, 6, 7, 5, 5, 7, 4, 5, 6, 6

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..10000

Mathematica

s = {}; Do[id3 = IntegerDigits[n, 3]; id2 = IntegerDigits[n, 2];
If[(t = Total[id2]) == Total[id3], AppendTo[s, t]], {n, 0, 10^3}]; s

Crossrefs

Cf. A037301 (sum of base 2 digits of n) = (sum of base 3 digits of n).

Sequence in context: A158478 A139713 A171465 * A342866 A023524 A068639

Adjacent sequences: A178617 A178618 A178619 * A178621 A178622 A178623

Keyword

base,nonn

Author

Zak Seidov, May 31 2010

Status

approved