%I #51 May 11 2023 08:47:26
%S 0,0,0,1,1,1,1,2,3,3,3,4,4,4,4,5,5,6,6,7,7,7,7,8,9,9,10,11,11,11,11,
%T 12,12,12,12,13,13,13,13,14,14,14,14,15,16,16,16,17,18,19,19,20,20,21,
%U 21,22,22,22,22,23,23,23,24,25,25,25,25,26,26,26,26,27,27,27,28,29,29,29
%N Number of nonsquarefree numbers not exceeding n.
%C Number of integers k in A013929 in the range 1 <= k <= n.
%C This sequence is different from A013940, albeit the first 35 terms are identical.
%C Asymptotic to k*n where k = 1 - 1/zeta(2) = 1 - 6/Pi^2 = A229099. - _Daniel Forgues_, Jan 28 2011
%C This sequence is the sequence of partial sums of A107078 (not of A056170). - _Jason Kimberley_, Feb 01 2017
%C Number of partitions of 2n into two parts with the smallest part nonsquarefree. - _Wesley Ivan Hurt_, Oct 25 2017
%H Robert Israel, <a href="/A057627/b057627.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = n - A013928(n+1) = n - Sum_{k=1..n} mu(k)^2.
%F G.f.: Sum_{k>=1} (1 - mu(k)^2)*x^k/(1 - x). - _Ilya Gutkovskiy_, Apr 17 2017
%e a(36)=13 because 13 nonsquarefree numbers exist which do not exceed 36:{4,8,9,12,16,18,20,24,25,27,28,32,36}.
%p N:= 1000: # to get terms up to a(N)
%p B:= Array(1..N, numtheory:-issqrfree):
%p C:= map(`if`,B,0,1):
%p A:= map(round,Statistics:-CumulativeSum(C)):
%p seq(A[n],n=1..N); # _Robert Israel_, Jun 03 2014
%t Accumulate[Table[If[SquareFreeQ[n],0,1],{n,80}]] (* _Harvey P. Dale_, Jun 04 2014 *)
%o (Scheme) (define (A057627 n) (- n (A013928 (+ n 1))))
%o (PARI) a(n) = my(s=0); forsquarefree(k=1, sqrtint(n), s += (-1)^(#k[2]~) * (n\k[1]^2)); n - s; \\ _Charles R Greathouse IV_, May 18 2015; corrected by _Daniel Suteu_, May 11 2023
%Y Cf. A005117, A008683, A013929, A013940, A013928, A002321, A028442, A107078, A229099, A294242.
%K nonn,easy
%O 1,8
%A _Labos Elemer_, Oct 10 2000
%E Offset and formula corrected by _Antti Karttunen_, Jun 03 2014
|