|
%I #7 Jun 07 2024 08:04:51
%S 4,9,25,28,45,49,50,64,76,81,99,100,117,121,125,126,136,148,153,169,
%T 172,176,189,208,225,243,244,245,261,276,280,289,297,316,325,333,343,
%U 344,351,352,361,364,369,376,388,405,424,425,441,460,476,477,496,508,513
%N Minimum of the n-th maximal antirun of nonsquarefree numbers differing by more than one.
%C The maximum is given by A068781.
%C An antirun of a sequence (in this case A013929) is an interval of positions at which consecutive terms differ by more than one.
%C Consists of 4 and all nonsquarefree numbers n such that n - 1 is also nonsquarefree.
%H Gus Wiseman, <a href="/A373403/a373403.txt">Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers</a>
%F a(1) = 4; a(n>1) = A068781(n-1) + 1.
%e Row-minima of:
%e 4 8
%e 9 12 16 18 20 24
%e 25 27
%e 28 32 36 40 44
%e 45 48
%e 49
%e 50 52 54 56 60 63
%e 64 68 72 75
%e 76 80
%e 81 84 88 90 92 96 98
%e 99
%t First/@Split[Select[Range[100],!SquareFreeQ[#]&],#1+1!=#2&]
%Y Functional neighbors: A005381, A006512, A053806, A068781, A373408, A373409, A373412.
%Y A005117 lists the squarefree numbers, first differences A076259.
%Y A013929 lists the nonsquarefree numbers, first differences A078147.
%Y Cf. A049094, A061399, A077641, A077643, A112926, A143658, A294242, A350842, A372683, A372684, A373125.
%K nonn
%O 1,1
%A _Gus Wiseman_, Jun 06 2024
|
