|
| |
|
|
A093049
|
|
n-1 minus exponent of 2 in n, a(0) = 0.
|
|
2
| |
|
|
0, 0, 0, 2, 1, 4, 4, 6, 4, 8, 8, 10, 9, 12, 12, 14, 11, 16, 16, 18, 17, 20, 20, 22, 20, 24, 24, 26, 25, 28, 28, 30, 26, 32, 32, 34, 33, 36, 36, 38, 36, 40, 40, 42, 41, 44, 44, 46, 43, 48, 48, 50, 49, 52, 52, 54, 52, 56, 56, 58, 57, 60, 60, 62, 57, 64, 64, 66, 65, 68
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
FORMULA
| Recurrence: a(2n) = a(n) + n - 1, a(2n+1) = 2n.
G.f.: sum(k>=0, t^3(t+2)/(1-t^2)^2, t=x^2^k).
|
|
|
PROG
| (PARI) a(n)=if(n<1, 0, if(n%2==0, a(n/2)+n/2-1, n-1))
|
|
|
CROSSREFS
| a(n) = n - A007814(n) - 1 = A093048(n) - 1, n>0.
a(n) is the exponent of 2 in A001761(n+1), A002105(n), A002682(n-1), A006963(n), A036770(n-1), A059837(n), A084623(n), |A003707(n)|, |A011859(n)|.
Sequence in context: A190993 A196082 A108755 * A081243 A127480 A141446
Adjacent sequences: A093046 A093047 A093048 * A093050 A093051 A093052
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Ralf Stephan (ralf(AT)ark.in-berlin.de), Mar 16 2004
|
| |
|
|
