0,3
A008345 := proc(n) option remember; if n = 1 then n-1 elif A008345(n-1) >= n*(n+1)/2 then A008345(n-1)-n*(n+1)/2 else A008345(n-1)+n*(n+1)/2; fi; end;
Adjacent sequences: A008342 A008343 A008344 this_sequence A008346 A008347 A008348
Sequence in context: A073172 A111443 A051499 this_sequence A016488 A087212 A048870
nonn,easy
njas and J. H. Conway (conway(AT)math.princeton.edu)
Search completed in 0.002 seconds