OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
EXAMPLE
221355126, 221355128, 221355130, 221355132, 221355134, 221355136, 221355138 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 > 6, AppendTo[a, n - 12]], m = 0], {n, 2, 2000000000, 2}]; a
PROG
(PARI) is(n)=sigma(n, -1)>2 && sigma(n+2, -1)>2 && sigma(n+4, -1)>2 && sigma(n+6, -1)>2 && sigma(n+8, -1)>2 && sigma(n+10, -1)>2 && sigma(n+12, -1)>2 \\ Charles R Greathouse IV, Feb 21 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Shyam Sunder Gupta, Nov 03 2013
STATUS
approved