A373410 Minimum of the n-th maximal antirun of nonsquarefree numbers differing by more than one.
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
Keywords
Examples
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
Links
Crossrefs
Programs
-
Mathematica
First/@Split[Select[Range[100],!SquareFreeQ[#]&],#1+1!=#2&]
Formula
a(1) = 4; a(n>1) = A068781(n-1) + 1.
Comments