OFFSET
1,1
COMMENTS
Note that s is necessarily a multiple of r.
EXAMPLE
a(1) = 36 since r = 3, s = 6 and t = r+s = 9.
MATHEMATICA
seq[kmax_] := Module[{triples = {}, v = {}, r, s, t}, Do[t = DivisorSigma[0, k]; r = t - DivisorSigma[0, k/2]; s = t - r; If[OddQ[r] && EvenQ[s] && FreeQ[triples, {r, s, t}] && Divisible[k, t] && Divisible[k, r] && Divisible[k, s], AppendTo[v, k]; AppendTo[triples, {r, s, t}]], {k, 2, kmax, 2}]; v]; seq[10^6] (* Amiram Eldar, Aug 01 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Walter Kehowski, Jun 25 2006
EXTENSIONS
a(21)-a(22) inserted and a(24)-a(31) added by Amiram Eldar, Aug 01 2024
STATUS
approved