OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..5000 from Shyam Sunder Gupta)
EXAMPLE
100, 102, 104 are abundant, thus the smallest number is listed.
MATHEMATICA
AbundantQ[n_] := DivisorSigma[1, n] > 2n; m = 0; a = {}; Do[If[AbundantQ[n], m = m + 1; If[m > 2, AppendTo[a, n - 4]], m = 0], {n, 2, 1000000, 2}]; a
2*Flatten[Position[Partition[Table[If[DivisorSigma[1, n]>2n, 1, 0], {n, 2, 3000, 2}], 3, 1], {1, 1, 1}]] (* Harvey P. Dale, Aug 19 2014 *)
2*SequencePosition[Table[If[DivisorSigma[1, n]>2n, 1, 0], {n, 2, 3000, 2}], {1, 1, 1}][[;; , 1]] (* Harvey P. Dale, Feb 27 2023 *)
PROG
(PARI) is(n)=sigma(n, -1)>2 && sigma(n+2, -1)>2 && sigma(n+4, -1)>2 \\ Charles R Greathouse IV, Feb 21 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Shyam Sunder Gupta, Nov 03 2013
STATUS
approved