OFFSET
0,3
COMMENTS
For a guide to related sequences, see A211795.
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
N:= 100:
A:= Vector(N):
for x from 1 to N do
for y from 1 to min(N, floor((N+2)/x)) do
for z from max(1, ceil(3/(x*y))) to min(N, floor((N+2)/(x*y))) do
w:=max(x, y, z, x*y*z-2);
A[w]:= A[w]+1;
od od od:
B:= ListTools:-PartialSums(convert(A, list)):
0, op(B); # Robert Israel, Oct 23 2019
MATHEMATICA
t = Compile[{{n, _Integer}}, Module[{s = 0},
(Do[If[w == x*y*z - 2, s = s + 1],
{w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
Map[t[#] &, Range[0, 60]] (* A212060 *)
(* Peter J. C. Moses, Apr 13 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Apr 30 2012
STATUS
approved