[go: up one dir, main page]

login
A373410 revision #3

A373410
Minimum of the n-th antirun of nonsquarefree numbers differing by more than one.
13
4, 9, 25, 28, 45, 49, 50, 64, 76, 81, 99, 100, 117, 121, 125, 126, 136, 148, 153, 169, 172, 176, 189, 208, 225, 243, 244, 245, 261, 276, 280, 289, 297, 316, 325, 333, 343, 344, 351, 352, 361, 364, 369, 376, 388, 405, 424, 425, 441, 460, 476, 477, 496, 508, 513
OFFSET
1,1
COMMENTS
The maximum is A068781. The length of this run is given by A373409.
EXAMPLE
Row-minima of:
4 8
9 12 16 18 20 24
25 27
28 32 36 40 44
45 48
49
50 52 54 56 60 63
64 68 72 75
76 80
81 84 88 90 92 96 98
99
MATHEMATICA
First/@Split[Select[Range[1000], !SquareFreeQ[#]&], #1+1!=#2&]
CROSSREFS
Functional neighbors: A005381, A006512, A053806, A068781, A373408, A373409, A373412.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
Sequence in context: A340640 A073045 A045967 * A336445 A232241 A163836
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 06 2024
STATUS
editing