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-2 of 2 results.

A369276 Numbers k in A126706 such that either k-1 or k+1 or both are also in A126706.

Original entry on oeis.org

44, 45, 75, 76, 98, 99, 100, 116, 117, 135, 136, 147, 148, 152, 153, 171, 172, 175, 176, 188, 189, 207, 208, 224, 225, 244, 245, 260, 261, 275, 276, 279, 280, 296, 297, 315, 316, 324, 325, 332, 333, 350, 351, 352, 363, 364, 368, 369, 375, 376, 387, 388, 404, 405
Offset: 1

Views

Author

Michael De Vlieger, Mar 24 2024

Keywords

Comments

A369954 is a proper subset.
Complement of A369516 relative to A126706.
Seen as a table where terms are consecutive, row n contains no primes; corollary: numbers in row n exceed prime(i) but are less than prime(i+1) for some i.
Smallest k such that row n has length m appear in A356322. Rows have length m > 1.

Examples

			Seen as a table T(n,j), row n contains the following terms:
      n
      1:     44,     45;
      2:     75,     76;
      3:     98,     99,    100;
      4:    116,    117;
      5:    135,    136;
      6:    147,    148;
      7:    152,    153;
            ...
     59:    844,    845,    846,    847,    848;
            ...
    235:   2888,   2889,   2890,   2891,   2892;
            ...
    255:   3174,   3175,   3176,   3177;
            ...
    293:   3624,   3625,   3626,   3627,   3628;
            ...
   1898:  22020,  22021,  22022,  22023,  22024,  22025;
            ...
  19018: 217070, 217071, 217072, 217073, 217074, 217075, 217076;
            ...
		

Crossrefs

Programs

  • Mathematica
    Select[Select[Range[500], Nor[SquareFreeQ[#], PrimePowerQ[#]] &], AnyTrue[{# - 1, # + 1}, Nor[SquareFreeQ[#], PrimePowerQ[#]] &] &]

A369954 Numbers k that are neither squarefree nor prime powers and also coprime to 6.

Original entry on oeis.org

175, 245, 275, 325, 425, 475, 539, 575, 605, 637, 725, 775, 833, 845, 847, 875, 925, 931, 1025, 1075, 1127, 1175, 1183, 1225, 1325, 1375, 1421, 1445, 1475, 1519, 1525, 1573, 1625, 1675, 1715, 1775, 1805, 1813, 1825, 1859, 1925, 1975, 2009, 2023, 2057, 2075, 2107
Offset: 1

Views

Author

Michael De Vlieger, Mar 24 2024

Keywords

Comments

Define quality Q to signify a number k neither squarefree nor prime power, i.e., k is in A126706. For example, 12 has quality Q but numbers k = 1..11 do not.
Numbers k in this sequence have quality Q and are such that either (k-1) or (k+1) also have quality Q. Hence k also appears in A369276, but not in A369516.
Numbers k such that k mod 12 = 1 or k mod 12 = 5 imply (k-1) in A126706, since 4 divides (k-1).
Numbers k such that k mod 12 = 7 or k mod 12 = 11 imply (k+1) in A126706, since 4 divides (k+1).
Proper subset of A367455.
By definition these odd numbers are such that A053669(k) = 2, therefore A053669(k) < A003557(k), hence this sequence is a proper subset of A360765.

Crossrefs

Programs

  • Mathematica
    Select[Flatten[Array[6 # + {1, 5} &, 360]], Nor[PrimePowerQ[#], SquareFreeQ[#]] &]
  • PARI
    isok(k) = !issquarefree(k) && !isprimepower(k) && (gcd(k, 6)==1); \\ Michel Marcus, Mar 25 2024

Formula

Intersection of A007310 and A126706.
Intersection of A007310, A013929, and A024619.
Showing 1-2 of 2 results.