A013934 - OEIS

%I #16 Feb 11 2021 03:32:39

%S 4,8,16,25,44,45,48,63,64,68,72,76,81,84,88,92,98,104,108,116,117,120,

%T 126,128,132,150,152,156,164,169,175,184,196,198,204,207,208,212,216,

%U 220,224,232,234,243,244,245,256,261,264,268,270,279,280,284,288,297,300,304

%N Nonsquarefree numbers k such that the sum of all nonsquarefree numbers <= k is nonsquarefree.

%H Amiram Eldar, <a href="/A013934/b013934.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A013929(A013933(n)). - _Amiram Eldar_, Feb 11 2021

%t nsf = Select[Range[400], ! SquareFreeQ[#] &]; nsf[[Position[Accumulate@nsf, _?(!SquareFreeQ[#] &)] // Flatten]] (* _Amiram Eldar_, Feb 11 2021 *)

%Y Cf. A013929, A013933, A013935.

%K nonn

%O 1,1

%A _Henri Lifchitz_

%E More terms from _David W. Wilson_