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.

A228965 Smallest sets of 8 consecutive abundant numbers in arithmetic progression. The initial abundant number is listed.

This page as a plain text file.
%I A228965 #13 Nov 16 2013 12:01:15
%S A228965 221355126,402640540,668862580,739577140
%N A228965 Smallest sets of 8 consecutive abundant numbers in arithmetic progression. The initial abundant number is listed.
%C A228965 Is this a duplicate of A231093? - _R. J. Mathar_, Nov 15 2013
%C A228965 No; there is some element of this sequence not in A231093 below approximately 10^10^72. In fact A228965 \ A231093 has positive lower density (though presumably quite small). Capsule proof: choose n such that an appropriately large number of primes divide n, n+1, ..., n+7. Since the reciprocal of the primes diverges, you can get sigma(n+i)/(n+i) arbitrarily large. - _Charles R Greathouse IV_, Nov 15 2013
%e A228965 221355126, 221355128, 221355130, 221355132, 221355134, 221355136, 221355138, 221355140  is the smallest set of 8 consecutive abundant numbers in arithmetic progression so 221355126 is in the list.
%t A228965 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 > 7, AppendTo[a, n - 7*cd]], m = 2; cd = n - z1]; z1 = n], {n, 19, 1000000000}]; a
%Y A228965 Cf. A005101, A228433, A228844, A228961, A228962, A228963, A228964.
%K A228965 nonn
%O A228965 1,1
%A A228965 _Shyam Sunder Gupta_, Nov 10 2013