OFFSET
1,1
COMMENTS
Note that s is necessarily a multiple of r.
EXAMPLE
a(2) = 18 since r = 3, s = 3 and t = r+s = 6.
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] && OddQ[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(27)-a(35) from Amiram Eldar, Aug 01 2024
STATUS
approved