%I #9 Dec 23 2014 00:39:38
%S -1,-1,1,-3,3,7,11,-3,1,5,21,-1,39,71,49,-9,5,13,23,7,45,85,87,23,47,
%T 95,153,93,267,463,179,-9,-5,-1,43,-19,81,149,109,-11,91,175,195,189,
%U 345,605,309,-73,167,311,241,357,435,775,531,645,529,965,909,1151,1551,2639,601,-15,-1,7,29,-11,63,127,185,5,53,125,327,87,573,997,407,-65,121,253,413,231
%N a(n) = A003961(A005940(n+1)) - 2 * A005940(n+1).
%H Antti Karttunen, <a href="/A252750/b252750.txt">Table of n, a(n) for n = 1..8191</a>
%F a(n) = A003961(A005940(n+1)) - 2 * A005940(n+1).
%F a(n) = A252748(A005940(n+1)).
%F Other identities. For all n >= 1:
%F sgn(a(n)) = (-1)^(1+A252743(n)).
%o (Scheme) (define (A252750 n) (- (A003961 (A005940 (+ 1 n))) (* 2 (A005940 (+ 1 n)))))
%Y Partial sums: A252751.
%Y Cf. A252743 (characteristic function for positive terms).
%Y Cf. A003961, A005940, A252745, A252748, A249820, A246282.
%K sign
%O 1,4
%A _Antti Karttunen_, Dec 21 2014
|