|
Search: id:A102534
|
|
|
| A102534 |
|
Number of distinct values of i*j + j*k + k*i with 1 <= i<= j < k <= n. |
|
+0
4
|
|
| 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; listen)
|
|
|
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.
Adjacent sequences: A102531 A102532 A102533 this_sequence A102535 A102536 A102537
Sequence in context: A008125 A024984 A038417 this_sequence A093111 A009857 A008126
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 13 2005
|
|
|
Search completed in 0.002 seconds
|
