A222945 Number of distinct sums i+j+k with |i|, |j|, |k|, |i*j*k| <= n.

1, 7, 9, 13, 17, 21, 25, 29, 33, 37, 41, 45, 49, 53, 57, 61, 65, 69, 73, 77, 81, 85, 89, 93, 97, 101, 105, 109, 113, 117, 121, 125, 129, 133, 137, 141, 145, 149, 153, 157, 161, 165, 169, 173, 177, 181, 185, 189, 193, 197, 201, 205, 209, 213, 217, 221, 225

Offset

0,2

Links

Robert Price, Table of n, a(n) for n = 0..100

Mathematica

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}]

Crossrefs

Cf. A226357, A226359, A222947.

Sequence in context: A180645 A196091 A329166 * A129069 A258616 A125866

Adjacent sequences: A222942 A222943 A222944 * A222946 A222947 A222948

Keyword

nonn

Author

Robert Price, Jun 12 2013

Status

approved