|
0, 2, 3, 8, 5, 12, 14, 32, 18, 20, 22, 60, 52, 42, 45, 112, 85, 90, 57, 160, 105, 132, 92, 240, 150, 156, 162, 280, 203, 180, 186, 384, 264, 306, 245, 612, 333, 304, 312, 640, 410, 378, 473, 792, 585, 414, 423, 912, 637, 500, 408, 1092, 742, 756, 440, 1120
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = n * Sum_{i=1..floor(n/2)} [A008966(i) = A008966(n-i)], where [] is the Iverson bracket.
|
|
MATHEMATICA
|
Table[n*Sum[KroneckerDelta[MoebiusMu[k]^2, MoebiusMu[n - k]^2], {k, Floor[n/2]}], {n, 80}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|