|
| |
|
|
A081603
|
|
Number of 2's in ternary representation of n.
|
|
16
| |
|
|
0, 0, 1, 0, 0, 1, 1, 1, 2, 0, 0, 1, 0, 0, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 3, 0, 0, 1, 0, 0, 1, 1, 1, 2, 0, 0, 1, 0, 0, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 3, 1, 1, 2, 1, 1, 2, 2, 2, 3, 1, 1, 2, 1, 1, 2, 2, 2, 3, 2, 2, 3, 2, 2, 3, 3, 3, 4, 0, 0, 1, 0, 0, 1, 1, 1, 2, 0, 0, 1, 0, 0, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,9
|
|
|
COMMENTS
| A077267(n) + A062756(n) + a(n) = A081604(n);
a(n) = (A053735(n) - A062756(n))/2.
Fixed point of the morphism : 0 ->001 ; 1 ->112 ; 2 ->223 ; 3 ->334, etc , starting from a(0)=0. - From DELEHAM Philippe, Oct 26 2011.
|
|
|
LINKS
| R. Zumkeller, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Ternary.
|
|
|
FORMULA
| a(n) = if n<3 then [n/2] else a([n/3]) + [(n mod 3)/2].
|
|
|
MATHEMATICA
| Table[Count[IntegerDigits[n, 3], 2], {n, 0, 6!}] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jul 25 2009]
|
|
|
CROSSREFS
| Cf. A007089, A074940, A005836, A081610, A081611.
Sequence in context: A147645 A091970 A093955 * A165277 A103612 A083913
Adjacent sequences: A081600 A081601 A081602 * A081604 A081605 A081606
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Mar 23 2003
|
| |
|
|
