OFFSET
0,6
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000
R. J. Mathar, Java program that computes a b-file
FORMULA
a(n) <= A069905(n).
MAPLE
a:= proc(n) option remember; local m, c, i, j, h, w;
m, c:= proc() true end, 0; forget(m);
for i to iquo(n, 3) do for j from i to iquo(n-i, 2) do
h:= i*j*(n-j-i); w:= m(h);
if w then m(h):= false; c:= c+1 fi
od od; c
end:
seq(a(n), n=0..80); # Alois P. Heinz, Feb 13 2019
MATHEMATICA
a[n_] := a[n] = Module[{m, c = 0, i, j, h, w}, m[_] = True; For[i = 1, i <= Quotient[n, 3], i++, For[j = i, j <= Quotient[n - i, 2], j++, h = i*j*(n - j - i); w = m[h]; If[w, m[h] = False; c++]]]; c];
a /@ Range[0, 80] (* Jean-François Alcover, Feb 24 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Feb 13 2019
STATUS
approved