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.

Showing 1-4 of 4 results.

A231626 Smallest sets of 5 consecutive deficient numbers in arithmetic progression. The initial deficient number is listed.

Original entry on oeis.org

1, 7, 13, 31, 43, 49, 61, 73, 91, 115, 121, 127, 133, 145, 151, 163, 169, 181, 187, 211, 229, 235, 241, 247, 253, 265, 283, 289, 295, 313, 325, 331, 343, 347, 355, 373, 385, 403, 409, 421, 427, 433, 451, 469, 481, 505, 511, 523, 535, 553, 565, 583, 589, 595
Offset: 1

Views

Author

Shyam Sunder Gupta, Nov 11 2013

Keywords

Examples

			1, 2, 3, 4, 5 is the smallest set of 5 consecutive deficient numbers in arithmetic progression so 1 is in the list.

Links

Crossrefs

Cf. A005100, A231623, A228962, A231624, A231625.

Programs

  • Mathematica
    DefQ[n_] := DivisorSigma[1, n] < 2 n; m = 2; z1 = 2; cd = 1; a = {}; Do[If[DefQ[n], If[n - z1 == cd, m = m + 1; If[m > 4, AppendTo[a, n - 4*cd]], m = 2; cd = n - z1]; z1 = n], {n, 3, 1000000}]; a

A231628 Smallest sets of 6 consecutive deficient numbers in arithmetic progression. The initial deficient number is listed.

Original entry on oeis.org

2987, 4727, 9723, 18843, 22983, 30543, 35147, 39947, 45047, 50463, 55787, 56807, 58055, 58779, 69183, 78047, 81947, 85743, 101147, 106143, 108255, 109247, 117123, 134087, 139743, 139803, 152567, 171287, 174347, 175907, 182643, 189767, 197027, 199803, 202127
Offset: 1

Views

Author

Shyam Sunder Gupta, Nov 11 2013

Keywords

Examples

			2987, 2989, 2991, 2993, 2995, 2997 is the smallest set of 6 consecutive deficient numbers in arithmetic progression so 2987 is in the list.

Links

Crossrefs

Cf. A005100, A231623, A228963, A231624, A231625, A231626.

Programs

  • Mathematica
    DefQ[n_] := DivisorSigma[1, n] < 2 n; m = 2; z1 = 2; cd = 1; a = {}; Do[If[DefQ[n], If[n - z1 == cd, m = m + 1; If[m > 5, AppendTo[a, n - 5*cd]], m = 2; cd = n - z1]; z1 = n], {n, 3, 1000000}]; a

A231629 First of 7 consecutive deficient numbers in arithmetic progression.

Original entry on oeis.org

801339, 962649, 7353339, 21964299, 41642139, 48049689, 55455939, 89034939, 89851449, 92253849, 105259539, 107948379, 109455339, 114295449, 116754939, 122349369, 135575979, 156009849, 159521049, 173645439, 188586699, 192674169, 193137849, 220301769, 221355125
Offset: 1

Views

Author

Shyam Sunder Gupta, Nov 11 2013

Keywords

Examples

			801339, 801341, 801343, 801345, 801347, 801349, 801351 is the smallest set of 7 consecutive deficient numbers in arithmetic progression so 801339 is in the list.

Links

Crossrefs

Cf. A005100, A231623, A228964, A231624, A231625, A231626, A231628.

Programs

  • Mathematica
    DefQ[n_] := DivisorSigma[1, n] < 2 n; m = 2; z1 = 2; cd = 1; a = {}; Do[If[DefQ[n], If[n - z1 == cd, m = m + 1; If[m > 6, AppendTo[a, n - 6*cd]], m = 2; cd = n - z1]; z1 = n], {n, 3, 1000000000}]; a

A231630 Smallest sets of 8 consecutive deficient numbers in arithmetic progression. The initial deficient number is listed.

Original entry on oeis.org

221355125, 221355127, 402640539, 402640541, 668862579, 668862581, 739577139, 739577141
Offset: 1

Views

Author

Shyam Sunder Gupta, Nov 11 2013

Keywords

Examples

			221355125, 221355127, 221355129, 221355131, 221355133, 221355135, 221355137, 221355139 is the smallest set of 8 consecutive deficient numbers in arithmetic progression so 221355125 is in the list.

Crossrefs

Cf. A005100, A231623, A228965, A231624, A231625, A231626, A231628, A231629.

Programs

  • Mathematica
    DefQ[n_] := DivisorSigma[1, n] < 2 n; m = 2; z1 = 2; cd = 1; a = {}; Do[If[DefQ[n], If[n - z1 == cd, m = m + 1; If[m > 7, AppendTo[a, n - 7*cd]], m = 2; cd = n - z1]; z1 = n], {n, 3, 1000000000}]; a
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.