|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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}] (* Robert G. Wilson v, Jan 13 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|