|
|
|
|
1, 3, 6, 11, 18, 28, 40, 54, 71, 90, 112, 137, 165, 196, 232, 270, 311, 355, 402, 454, 509, 569, 633, 698, 765, 835, 908, 984, 1063, 1147, 1234, 1326, 1422, 1520, 1621, 1726, 1835, 1949, 2067, 2190, 2319, 2450, 2584, 2721, 2861, 3004, 3152, 3303, 3459, 3619
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ (n^2/4)*log_2(n). [Stolarsky]
|
|
MAPLE
|
f:= proc(n) option remember;
procname(n-1)+convert(convert(procname(n-1), base, 2), `+`)
end proc:
f(0):= 1:
g:= proc(n) option remember;
procname(n-1)+f(n)
end proc:
g(0):= 1:
|
|
PROG
|
(PARI) lista(nn) = {a = 1; sa = 0; for (n=2, nn, sa += a; print1(sa, ", "); a += hammingweight(a); ); } \\ Michel Marcus, Apr 04 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|