login
a(1) = 0; for n > 1, if A003961(n) > A003961(n-1) then a(n) = a(n-1) + 1, otherwise if A003961(n) < A003961(n-1), then a(n) = a(n-1) - 1.
4

%I #5 Aug 07 2016 20:44:53

%S 0,1,2,3,2,3,2,3,2,1,0,1,0,1,2,3,2,3,2,3,2,1,0,1,0,1,2,1,0,1,0,1,0,-1,

%T 0,1,0,1,2,3,2,3,2,3,4,3,2,3,2,3,2,3,2,3,2,3,2,1,0,1,0,1,2,3,2,3,2,3,

%U 2,3,2,3,2,3,4,3,2,3,2,3,4,3,2,3,2,3,4,5,4,5,4,5,4,3,4,5,4,5,4,5,4,5,4,5,4,3,2,3,2,3,2,3,2,3,2,3,4,3,4,5

%N a(1) = 0; for n > 1, if A003961(n) > A003961(n-1) then a(n) = a(n-1) + 1, otherwise if A003961(n) < A003961(n-1), then a(n) = a(n-1) - 1.

%H Antti Karttunen, <a href="/A275720/b275720.txt">Table of n, a(n) for n = 1..16389</a>

%F a(1) = 0; for n > 1, if A003961(n) > A003961(n-1) then a(n) = a(n-1) + 1, otherwise if A003961(n) < A003961(n-1), then a(n) = a(n-1) - 1.

%o (Scheme, with memoization-macro definec)

%o (definec (A275720 n) (if (= 1 n) 0 (+ (A275720 (- n 1)) (if (> (A003961 n) (A003961 (- n 1))) 1 -1))))

%Y Cf. A003961, A275717, A275718, A275721, A275722.

%Y Cf. also A275719.

%K sign

%O 1,3

%A _Antti Karttunen_, Aug 07 2016