Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A013935
a(n) is nonsquarefree and is sum of first k nonsquarefrees for some k.
4
4, 12, 49, 136, 343, 388, 436, 820, 884, 952, 1024, 1175, 1336, 1420, 1508, 1690, 1884, 2187, 2295, 2523, 2640, 2760, 3256, 3384, 3516, 4516, 4668, 4977, 5463, 5800, 6318, 6858, 7623, 7821, 8225, 8432, 8640, 8852, 9068, 9288, 9512, 10197, 10431, 11392
OFFSET
1,1
LINKS
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
EXTENSIONS
More terms from David W. Wilson
STATUS
approved