|
|
A226600
|
|
Number of ordered triples (i,j,k) with i*j*k <= n and i,j,k >= 0.
|
|
3
|
|
|
1, 8, 23, 44, 74, 107, 152, 197, 255, 315, 384, 453, 543, 624, 717, 816, 927, 1032, 1158, 1275, 1413, 1548, 1689, 1830, 2004, 2160, 2325, 2497, 2683, 2860, 3067, 3256, 3469, 3676, 3889, 4108, 4360, 4585, 4822, 5065, 5335, 5584, 5863, 6124, 6406, 6694, 6979
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_] := Length[Complement[Union[Flatten[Table[If[i*j*k <= n, {i, j, k}], {i, 0, n}, {j, 0, n}, {k, 0, n}], 2]], {Null}]]; Table[f[n], {n, 0, 100}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|