A161339 Partial sums of A161205.
1, 3, 5, 8, 12, 16, 20, 24, 29, 35, 41, 47, 53, 59, 65, 72, 80, 88, 96, 104, 112, 120, 128, 136, 145, 155, 165, 175, 185, 195, 205, 215, 225, 235, 245, 256, 268, 280, 292, 304, 316, 328, 340, 352, 364, 376, 388, 400, 413, 427, 441, 455, 469, 483, 497, 511
Offset: 1
Links
- Nathaniel Johnston, Table of n, a(n) for n = 1..10000
Programs
-
Maple
A161339 := proc(n) option remember: local s: if(n=1)then return 1: fi: s:=sqrt(n): if(frac(s)=0)then return procname(n-1)+2*s-1: else return procname(n-1)+2*floor(s): fi: end: seq(A161339(n), n=1..60); # Nathaniel Johnston, May 06 2011