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.

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

This page as a plain text file.
%I A369276 #31 Apr 04 2024 10:00:12
%S A369276 44,45,75,76,98,99,100,116,117,135,136,147,148,152,153,171,172,175,
%T A369276 176,188,189,207,208,224,225,244,245,260,261,275,276,279,280,296,297,
%U A369276 315,316,324,325,332,333,350,351,352,363,364,368,369,375,376,387,388,404,405
%N A369276 Numbers k in A126706 such that either k-1 or k+1 or both are also in A126706.
%C A369276 A369954 is a proper subset.
%C A369276 Complement of A369516 relative to A126706.
%C A369276 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.
%C A369276 Smallest k such that row n has length m appear in A356322. Rows have length m > 1.
%H A369276 Michael De Vlieger, <a href="/A369276/b369276.txt">Table of n, a(n) for n = 1..11053</a>
%e A369276 Seen as a table T(n,j), row n contains the following terms:
%e A369276       n
%e A369276       1:     44,     45;
%e A369276       2:     75,     76;
%e A369276       3:     98,     99,    100;
%e A369276       4:    116,    117;
%e A369276       5:    135,    136;
%e A369276       6:    147,    148;
%e A369276       7:    152,    153;
%e A369276             ...
%e A369276      59:    844,    845,    846,    847,    848;
%e A369276             ...
%e A369276     235:   2888,   2889,   2890,   2891,   2892;
%e A369276             ...
%e A369276     255:   3174,   3175,   3176,   3177;
%e A369276             ...
%e A369276     293:   3624,   3625,   3626,   3627,   3628;
%e A369276             ...
%e A369276    1898:  22020,  22021,  22022,  22023,  22024,  22025;
%e A369276             ...
%e A369276   19018: 217070, 217071, 217072, 217073, 217074, 217075, 217076;
%e A369276             ...
%t A369276 Select[Select[Range[500], Nor[SquareFreeQ[#], PrimePowerQ[#]] &], AnyTrue[{# - 1, # + 1}, Nor[SquareFreeQ[#], PrimePowerQ[#]] &] &]
%Y A369276 Cf. A126706, A356322, A369516, A369954.
%K A369276 nonn,easy
%O A369276 1,1
%A A369276 _Michael De Vlieger_, Mar 24 2024