|
%I #14 Mar 07 2021 03:14:12
%S 1,2,3,4,5,7,9,11,13,15,17,19,20,23,25,26,27,29,32,34,37,40,41,42,43,
%T 44,46,47,49,50,51,53,54,56,58,60,61,63,64,65,69,70,71,74,76,77,79,80,
%U 81,82,83,84,86,88,89,90,92,94,95,96,98,100,102,103,104,106,107,108,110,111
%N Sum of first a(n) squarefrees is squarefree.
%H Amiram Eldar, <a href="/A013930/b013930.txt">Table of n, a(n) for n = 1..10000</a>
%t Position[Accumulate[Select[Range[200], SquareFreeQ]], _?SquareFreeQ, Heads -> False] // Flatten (* _Amiram Eldar_, Mar 07 2021 *)
%Y Cf. A005117, A013931, A013932.
%K nonn
%O 1,2
%A _Henri Lifchitz_
%E More terms from _David W. Wilson_
|
