OFFSET
11,12
EXAMPLE
a(28) = 3 counts these triples: (2, 1, 20), (3, 1, 10), (3, 2, 5).
MATHEMATICA
t[n_, c_] := Module[{r}, r = Flatten[Table[If[n - 2 x^2 <= 0, {},
Map[({x, #, Quotient[n - 2 x^2, #]} &),
Select[Divisors[n - 2 x^2], Divisible[n - 2 x^2, #] &]]],
{x, 1, Floor[Sqrt[n - 1]]}], 1]; Select[r, Apply[c, #] &]];
c = (#2 < #1 < #3 &);
Table[Length[t[n, c]], {n, 11, 130}]
(* Peter J. C. Moses, Mar 29 2026 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 02 2026
STATUS
approved
