|
%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_
|
