|
%I #5 May 13 2015 15:43:57
%S 1,0,0,-1,-2,-5,-6,-12,-20,-30,-37,-41,-39,-37,-51,-141,-459,-1355,
%T -3521,-8212,-17510,-34685,-64692,-114953,-196617,-326254,-527227,
%U -828432,-1254932,-1800115,-2361626,-2613748,-1777205,1765725,11078200,31587185,72445272,148564309,283768148,516004565,906713910,1559424960,2660917133,4581930804,8140743021,15311144248,31111188060,68512065476
%N Partial sums of A257259: a(0) = 1; for n >= 1, a(n) = A257259(n) + a(n-1).
%F a(0) = 1; for n >= 1, a(n) = A257259(n) + A257805(n-1).
%F Other identities. For all n >= 0:
%F a(n) = -A257806(A218600(n+1)).
%o (Scheme, with memoization-macro definec)
%o (definec (A257805 n) (if (zero? n) 1 (+ (A257259 n) (A257805 (- n 1)))))
%o ;; Alternative implementation:
%o (define (A257805 n) (- (A257806 (A218600 (+ 1 n)))))
%Y Cf. A218600, A257259, A257806.
%Y Cf. also A218542, A218543 and A218789.
%K sign
%O 0,5
%A _Antti Karttunen_, May 13 2015
|
