OFFSET
1,1
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Accumulate[Select[Range[300], !SquareFreeQ[#]&]], !SquareFreeQ[#]&] (* Harvey P. Dale, Mar 06 2016 *)
PROG
(PARI) A013935(n, list=0 /* set to 1 for list, filename for b-file */ )={ my(s=i=0); for(c=1, n, while(issquarefree(i++) || issquarefree(s+=i), ); list || next; list==1 && print1(s", "); write(list, c" "s)); s} \\ M. F. Hasler, May 01 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from David W. Wilson
STATUS
approved