|
| |
|
|
A102534
|
|
Number of distinct values of i*j + j*k + k*i with 1 <= i<= j < k <= n.
|
|
3
| |
|
|
0, 1, 4, 10, 19, 33, 49, 70, 96, 127, 161, 201, 238, 287, 337, 390, 449, 519, 586, 662, 741, 818, 902, 997, 1095, 1194, 1299, 1410, 1518, 1651, 1778, 1908, 2054, 2186, 2332, 2493, 2636, 2793, 2955, 3128, 3300, 3481, 3660, 3840, 4050, 4252, 4443, 4665, 4871
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
MATHEMATICA
| f[n_] := Length[ Union[ Flatten[ Table[i*j + j*k + k*i, {i, n}, {j, i, n}, {k, j + 1, n}]]]]; Table[ f[n], {n, 48}] (from Robert G. Wilson v Jan 13 2005)
|
|
|
CROSSREFS
| Cf. A100439, A100440, A102533.
Sequence in context: A008125 A024984 A038417 * A093111 A009857 A173154
Adjacent sequences: A102531 A102532 A102533 * A102535 A102536 A102537
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 13 2005
|
| |
|
|
