|
%I #19 Jun 12 2013 21:02:45
%S 1,7,9,13,17,21,25,29,33,37,41,45,49,53,57,61,65,69,73,77,81,85,89,93,
%T 97,101,105,109,113,117,121,125,129,133,137,141,145,149,153,157,161,
%U 165,169,173,177,181,185,189,193,197,201,205,209,213,217,221,225
%N Number of distinct sums i+j+k with |i|, |j|, |k|, |i*j*k| <= n.
%H Robert Price, <a href="/A222945/b222945.txt">Table of n, a(n) for n = 0..100</a>
%t f[n_] := Length[Complement[Union[Flatten[Table[If[Abs[i*j*k] ≤ n, {i + j + k}], {i, -n, n}, {j, -n, n}, {k, -n, n}], 2]], {Null}]]; Table[f[n], {n, 0, 100}]
%Y Cf. A226357, A226359, A222947.
%K nonn
%O 0,2
%A _Robert Price_, Jun 12 2013
|
