|
| |
| |
|
|
|
1, 2, 2, 2, 2, 2, 4, 2, 2, 4, 4, 4, 2, 2, 4, 4, 4, 4, 4, 4, 4, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, 2, 4, 4, 4, 4, 4, 4, 6, 4, 6, 6, 6, 6, 6, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, 2, 4, 4, 4, 4, 4, 4, 6, 4, 6, 6, 6
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| All a(n) are even for n>1.
Records occur at positions { 1,2,7,37,122,... } which correspond to run start positions { 2,4,16,126,512,... } in A071542.
|
|
|
PROG
| (PARI) e1(n)=sum(k=0, floor(log2(n)), bittest(n, k))
f(n)=local(c):c=0:while(n, n=n-e1(n):c=c+1):c
p=1:r=1:for(n=1, 150, c=0:while(f(r) == p, r=r+1:c=c+1):p=f(r):print1(c", "))
|
|
|
CROSSREFS
| Sequence in context: A076500 A060594 A104361 * A066691 A164296 A064133
Adjacent sequences: A086873 A086874 A086875 * A086877 A086878 A086879
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Ralf Stephan (ralf(AT)ark.in-berlin.de), Aug 21 2003
|
| |
|
|
