An absolute difference sequence based on A087655: a(n)=If[Mod[A087655(n), 3] == 1, a(n - 1) - (-1)^n*n, a(n - 1) + (-1)^n*n].

A174218

An absolute difference sequence based on A087655: a(n)=If[Mod[A087655(n), 3] == 1, a(n - 1) - (-1)^n*n, a(n - 1) + (-1)^n*n].

Terms

    a(0) =1a(1) =0a(2) =-2a(3) =1a(4) =5a(5) =10a(6) =16a(7) =9a(8) =17a(9) =26a(10) =16a(11) =5a(12) =-7a(13) =6a(14) =-8a(15) =7a(16) =23a(17) =6a(18) =-12a(19) =7a(20) =-13a(21) =8a(22) =30a(23) =7a(24) =31a(25) =6a(26) =32a(27) =5a(28) =33a(29) =4

External references