|
Search: id:A102354
|
|
|
| A102354 |
|
a(n) = number of ways n can be written as k^2 * j, 0 < j <= k. |
|
+0
6
|
|
| 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; listen)
|
|
|
OFFSET
|
1,64
|
|
|
COMMENT
|
Sum_{n>0} a(n)/n = 2*zeta(3).
|
|
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}] (from Robert G. Wilson v Feb 22 2005)
|
|
CROSSREFS
|
Cf. A102448, A104020, A104022, A104024.
Sequence in context: A010103 A086078 A014082 this_sequence A087781 A056626 A091398
Adjacent sequences: A102351 A102352 A102353 this_sequence A102355 A102356 A102357
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Feb 21 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 22 2005
|
|
|
Search completed in 0.002 seconds
|
