OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
With[{s = Select[Range[6000], SquareFreeQ]}, Position[s, #] & /@ Select[Accumulate[s], # <= s[[-1]] && SquareFreeQ[#] &] // Flatten] (* Amiram Eldar, Aug 19 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Renaud Lifchitz (100637.64(AT)CompuServe.COM), and David W. Wilson
STATUS
approved
