OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..5000 (terms n = 0..100 from Robert Price)
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
Robert Price, Jun 13 2013
STATUS
approved