|
%I #13 Jun 12 2013 21:08:06
%S 1,4,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,
%T 49,51,53,55,57,59,61,63,65,67,69,71,73,75,77,79,81,83,85,87,89,91,93,
%U 95,97,99,101,103,105,107,109,111,113,115,117,119,121,123,125
%N Number of distinct sums i+j+k with i,j,k >= 0, i*j*k <= n.
%H Robert Price, <a href="/A223134/b223134.txt">Table of n, a(n) for n = 0..100</a>
%t 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}]
%Y Cf. A226357, A226359, A222945, A222947, A223133.
%K nonn
%O 0,2
%A _Robert Price_, Jun 12 2013
|
