OFFSET
1,1
COMMENTS
a(11) > 10^12, if it exists.
EXAMPLE
96236031968 is a term since it has 7 abundant divisors (992, 512368, 1024736, 46580848, 93161696, 48118015984, 96236031968), 96236031968 + 1 = 96236031969 has 9 abundant divisors (7857927, 10025631, 12641013, 290743299, 2600973837, 3318483861, 4184175303, 5660943057, 96236031969), and 96236031968 + 2 = 96236031970 has one abundant divisor (96236031970 itself).
MATHEMATICA
q[n_] := q[n] = OddQ[DivisorSum[n, 1 &, DivisorSigma[-1, #] > 2 &]]; With[{v = Import["https://oeis.org/A096536/b096536.txt", "Table"][[;; , 2]]}, Select[v, q[#] && q[# + 1] && q[# + 2] &]]
CROSSREFS
KEYWORD
nonn,more,changed
AUTHOR
Amiram Eldar, Feb 26 2025
EXTENSIONS
a(11) from Jinyuan Wang, Mar 12 2025
STATUS
approved