OFFSET
1,1
COMMENTS
Note that s is necessarily a multiple of r.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
EXAMPLE
a(2) = 18 since r = 3, s = 3, t = r+s = 6.
MATHEMATICA
seq[kmax_] := Module[{v = {}, r, s, t}, Do[t = DivisorSigma[0, k]; r = t - DivisorSigma[0, k/2]; s = t - r; If[OddQ[r] && OddQ[s] && Divisible[k, t] && Divisible[k, r] && Divisible[k, s], AppendTo[v, k]], {k, 2, kmax, 2}]; v]; seq[10^6] (* Amiram Eldar, Aug 01 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Walter Kehowski, Jun 25 2006
EXTENSIONS
a(36)-a(42) from Amiram Eldar, Aug 01 2024
STATUS
approved