|
|
A102354
|
|
a(n) is the number of ways n can be written as k^2 * j, 0 < j <= k.
|
|
8
|
|
|
1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,64
|
|
COMMENTS
|
Sum_{n>0} a(n)/n = 2*zeta(3). See A152648.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(18) = 1 because 18 = k^2 * j, j <= k, in one way: k=3, j=2.
|
|
MATHEMATICA
|
t = Sort[ Flatten[ Table[k^2*j, {k, 11}, {j, k}]]]; Table[ Count[t, n], {n, 105}] (* Robert G. Wilson v, Feb 22 2005 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|