|
Search: id:A086876
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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.
|
|
PROGRAM
|
(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 this_sequence A066691 A164296 A064133
Adjacent sequences: A086873 A086874 A086875 this_sequence A086877 A086878 A086879
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Ralf Stephan (ralf(AT)ark.in-berlin.de), Aug 21 2003
|
|
|
Search completed in 0.002 seconds
|
