This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A066731 #10 Feb 23 2024 07:25:30
%S A066731 4680,60192,179424,1737000,2578968,3441888,5604192,6008184,6331104,
%T A066731 302459850,320457888,477229032,589459104,731925000,766073448,928765600
%N A066731 f-triperfect numbers, where f(n) = sigma(n) and f-triperfect numbers are defined similarly to f-perfect numbers in A066218.
%C A066731 n is f-triperfect iff sum_{k divides n} f(k) = 3*f(n). f-triperfect numbers appear to be rare for many f. For the usual f(n) = n, there are at least 6 f-triperfect numbers known < 3.2 x 10^10, the first being 120. However, there are no f-triperfect numbers < 10^6 for f(n) = n+1 and f(n) = n-1 (if one ignores the trivial n = 1).
%D A066731 Wells, D. Curious and Interesting Numbers, Revised Edition. Penguin Books, 1997. (See the entry on "120".)
%e A066731 Divisors of 4680 = {1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 13, 15, 18, 20, 24, 26, 30, 36, 39, 40, 45, 52, 60, 65, 72, 78, 90, 104, 117, 120, 130, 156, 180, 195, 234, 260, 312, 360, 390, 468, 520, 585, 780, 936, 1170, 1560, 2340, 4680}; f applied to these yield {1, 3, 4, 7, 6, 12, 15, 13, 18, 28, 14, 24, 39, 42, 60, 42, 72, 91, 56, 90, 78, 98, 168, 84, 195, 168, 234, 210, 182, 360, 252, 392, 546, 336, 546, 588, 840, 1170, 1008, 1274, 1260, 1092, 2352, 2730, 3276, 5040, 7644, 16380}, which sum to 49140 = 3 * 16380 = 3 * f(4680). Hence 4680 is a term of the sequence.
%t A066731 f[x_] := DivisorSigma[1, x]; Do[If[ Apply[ Plus, Map[ f, Divisors[ n ] ] ] == 3*f[n], Print[n]], {n, 1, 10^7}]
%Y A066731 Cf. A066218.
%K A066731 nonn
%O A066731 1,1
%A A066731 _Joseph L. Pe_, Jan 15 2002
%E A066731 a(5)-a(16) from _Giovanni Resta_, Jul 13 2016