|
| |
|
|
A043529
|
|
Number of distinct base 2 digits of n.
|
|
4
| |
|
|
1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
FORMULA
| Contribution from Johannes W. Meijer (meijgia(AT)hotmail.com), May 24 2009: (Start)
a(0) = 1; a(n)= denom((abs(floor(ln(n+1)/ln(2))+((n)mod 2) - floor(ln(n)/ln(2))-((n-1) mod 2)))/2) for n = 2, 3, .. .
(End)
|
|
|
MAPLE
| Contribution from Johannes W. Meijer (meijgia(AT)hotmail.com), May 24 2009: (Start)
nmax:=128; a(0):=1: for n from 1 to nmax do a(n):= denom((abs(floor(ln(n+1)/ln(2))+ ((n)mod 2) -floor(ln(n)/ln(2))-((n-1) mod 2)))/2) end do: seq(a(n), n=0..nmax);
(End)
|
|
|
CROSSREFS
| Contribution from Johannes W. Meijer (meijgia(AT)hotmail.com), May 24 2009: (Start)
Factor of A160466.
Cf. A007456 and A081729.
(End)
Sequence in context: A070304 A083952 A160242 * A201219 A080942 A099812
Adjacent sequences: A043526 A043527 A043528 * A043530 A043531 A043532
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Clark Kimberling (ck6(AT)evansville.edu)
|
|
|
EXTENSIONS
| First term added and offset changed by Johannes W. Meijer (meijgia(AT)hotmail.com), May 15 2009
|
| |
|
|
