OFFSET
0,5
EXAMPLE
a(11) = 5 counts these triples: (1,1,9), (1,3,3), (1,9,1), (2,1,3), (2,3,1).
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 = CoprimeQ[#1, #2 #3] &;
Join[{0}, Table[Length[t[n, c]], {n, 1, 130}]]
(* Peter J. C. Moses, Mar 29 2026 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 05 2026
STATUS
approved
