|
| |
|
|
A369276
|
|
Numbers k in A126706 such that either k-1 or k+1 or both are also in A126706.
|
|
4
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
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.
|
|
|
LINKS
|
|
|
|
EXAMPLE
|
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;
...
|
|
|
MATHEMATICA
|
Select[Select[Range[500], Nor[SquareFreeQ[#], PrimePowerQ[#]] &], AnyTrue[{# - 1, # + 1}, Nor[SquareFreeQ[#], PrimePowerQ[#]] &] &]
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
