Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #6 Sep 10 2024 08:04:42
%S 5,6,9,19,20,21,33,34,36,49,57,58,62,63,66,76,77,88,89,91,96,97,103,
%T 104,113,114,118,119,130,131,132,136,142,149,150,161,162,174,175,187,
%U 188,189,190,201,202,206,215,217,218,225,226,231,232,245,246,249,253
%N Numbers k such that A013929(k+1) - A013929(k) = 2. In other words, the k-th nonsquarefree number is 2 less than the next nonsquarefree number.
%C The difference of consecutive nonsquarefree numbers is at least 1 and at most 4, so there are four disjoint sequences of this type:
%C - A375709 (difference 1)
%C - A375710 (difference 2)
%C - A375711 (difference 3)
%C - A375712 (difference 4)
%F Complement of A375709 U A375711 U A375712.
%e The initial nonsquarefree numbers are 4, 8, 9, 12, 16, 18, 20, 24, 25, which first increase by 2 after the fifth and sixth terms.
%t Join@@Position[Differences[Select[Range[1000], !SquareFreeQ[#]&]],2]
%Y Positions of 2's in A078147.
%Y For prime numbers we have A029707.
%Y For nonprime numbers we appear to have A014689.
%Y A005117 lists the squarefree numbers, first differences A076259.
%Y A013929 lists the nonsquarefree numbers, first differences A078147.
%Y A053797 gives lengths of runs of nonsquarefree numbers, firsts A373199.
%Y A375707 counts squarefree numbers between consecutive nonsquarefree numbers.
%Y Cf. A007674, A049094, A061399, A068781, A072284, A110969, A120992, A294242, A373409, A373573, A375927.
%K nonn
%O 1,1
%A _Gus Wiseman_, Sep 09 2024