|
|
A213207
|
|
Number of distinct products i*j*k over all triples (i,j,k) with |i| + |j| + |k| <= n.
|
|
10
|
|
|
1, 1, 1, 3, 5, 9, 13, 19, 25, 35, 43, 55, 65, 79, 91, 111, 127, 149, 167, 193, 217, 249, 273, 311, 339, 383, 419, 463, 501, 551, 591, 643, 693, 751, 799, 869, 925, 995, 1057, 1133, 1199, 1281, 1347, 1439, 1515, 1615, 1697, 1801, 1883, 2001, 2101, 2219, 2313
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
This sequence is in reply to an extension request made in A100450.
|
|
LINKS
|
|
|
MAPLE
|
h:= proc() true end:
b:= proc(n) local c, i, j, p;
c:=0;
for i to iquo(n, 3) do
for j from i to iquo(n-i, 2) do p:= i*j*(n-i-j);
if h(p) then h(p):= false; c:=c+1 fi
od
od; c
end:
a:= proc(n) a(n):= `if`(n=0, 1, a(n-1) +2*b(n)) end:
|
|
MATHEMATICA
|
f[n_] := Length[ Union[ Flatten[ Table[ If[ Abs[i] + Abs[j] + Abs[k] <= n, {i*j*k}, {0}], {i, -n, n}, {j, -n, n}, {k, -n, n}], 2]]]; Table[ f[n], {n, 0, 100}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|