%I #37 Nov 10 2023 09:09:42
%S 1,2,1,1,1,1,2,2,1,1,1,2,3,1,1,1,1,2,1,1,2,2,1,1,1,1,1,3,1,1,1,2,2,3,
%T 1,1,2,1,1,2,1,2,1,1,1,1,2,2,2,1,1,2,1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,4,
%U 1,1,1,1,2,1,1,1,1,2,2,1,2,1,1,2,1,1,1,1,1,2,1,2,1,2,1,1,1,3,1,3,1,2,2,2,1
%N Lengths of successive gaps between squarefree numbers.
%H Peter Kagey, <a href="/A053797/b053797.txt">Table of n, a(n) for n = 1..10000</a>
%H M. Filaseta and O. Trifonov, <a href="http://dx.doi.org/10.1007/978-1-4612-3464-7_15">On Gaps between Squarefree Numbers</a>. In Analytic Number Theory, Vol 85, 1990, Birkhäuser, Basel, pp. 235-253.
%H E. Fogels, <a href="http://dx.doi.org/10.1017/S0305004100017990">On the average values of arithmetic functions</a>, Proc. Cambridge Philos. Soc. 1941, 37: 358-372.
%H L. Marmet, <a href="http://www.marmet.org/louis/sqfgap/">First occurrences of squarefree gaps...</a>
%H L. Marmet, <a href="http://arxiv.org/abs/1210.3829">First occurrences of square-free gaps and an algorithm for their computation</a>, arXiv preprint arXiv:1210.3829 [math.NT], 2012. - From _N. J. A. Sloane_, Jan 01 2013
%H K. F. Roth, <a href="http://jlms.oxfordjournals.org/content/s1-26/4/263.extract">On the gaps between squarefree numbers</a>, J. London Math. Soc. 1951 (2) 26:263-268.
%e The first gap is at 4 and has length 1; the next starts at 8 and has length 2 (since neither 8 nor 9 are squarefree).
%p SF:= select(numtheory:-issqrfree,[$1..1000]):
%p map(`-`,select(`>`,SF[2..-1]-SF[1..-2],1),1); # _Robert Israel_, Sep 22 2015
%t ReplaceAll[Differences[Select[Range@384, SquareFreeQ]] - 1, 0 -> Nothing] (* _Michael De Vlieger_, Sep 22 2015 *)
%Y Gaps between terms of A005117.
%Y Cf. A005117, A053806.
%K nonn,easy
%O 1,2
%A _N. J. A. Sloane_, Apr 07 2000
%E Offset set to 1 by _Peter Kagey_, Sep 29 2015
|