cp's OEIS Frontend

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.

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

This page as a plain text file.
%I A228962 #8 Nov 11 2013 17:23:32
%S A228962 114,228,234,582,654,1002,1008,1242,1248,1254,1542,1794,1908,2094,
%T A228962 2214,2262,2328,2334,2502,2634,2754,2988,3054,3102,3348,3354,3642,
%U A228962 4182,4188,4314,4362,4368,4428,4434,4482,4728,4788,4902,5202,5208,5268,5274,5742,5862
%N A228962 Smallest sets of 5 consecutive abundant numbers in arithmetic progression. The initial abundant number is listed.
%H A228962 Shyam Sunder Gupta, <a href="/A228962/b228962.txt">Table of n, a(n) for n = 1..5000</a>
%e A228962 114, 120, 126, 132, 138 is the smallest set of 5 consecutive abundant numbers in arithmetic progression so 114 is in the list.
%t A228962 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
%Y A228962 Cf. A005101, A228433, A228844, A228961.
%K A228962 nonn
%O A228962 1,1
%A A228962 _Shyam Sunder Gupta_, Nov 10 2013