A228962 Smallest sets of 5 consecutive abundant numbers in arithmetic progression. The initial abundant number is listed.

114, 228, 234, 582, 654, 1002, 1008, 1242, 1248, 1254, 1542, 1794, 1908, 2094, 2214, 2262, 2328, 2334, 2502, 2634, 2754, 2988, 3054, 3102, 3348, 3354, 3642, 4182, 4188, 4314, 4362, 4368, 4428, 4434, 4482, 4728, 4788, 4902, 5202, 5208, 5268, 5274, 5742, 5862

Offset

1,1

Links

Shyam Sunder Gupta, Table of n, a(n) for n = 1..5000

Example

114, 120, 126, 132, 138 is the smallest set of 5 consecutive abundant numbers in arithmetic progression so 114 is in the list.

Mathematica

AbundantQ[n_] := DivisorSigma[1, n] > 2 n; m = 2; z1 = 18; cd = 6; a = {}; Do[If[AbundantQ[n], If[n - z1 == cd, m = m + 1; If[m > 4, AppendTo[a, n - 4*cd]], m = 2; cd = n - z1]; z1 = n], {n, 19, 1000000}]; a

Crossrefs

Cf. A005101, A228433, A228844, A228961.

Sequence in context: A095619 A160776 A171374 * A250725 A300478 A305066

Adjacent sequences: A228959 A228960 A228961 * A228963 A228964 A228965

Keyword

nonn

Author

Shyam Sunder Gupta, Nov 10 2013

Status

approved