OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
nsf = Select[Range[400], ! SquareFreeQ[#] &]; nsf[[Position[Accumulate@nsf, _?(!SquareFreeQ[#] &)] // Flatten]] (* Amiram Eldar, Feb 11 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from David W. Wilson
STATUS
approved