|
%I #8 May 18 2017 21:49:53
%S 0,0,1,2,5,41,71,71,198,313,484,922,1153,1201,2105,1565,2588,4046,
%T 5001,7443,7443,8851,10671,19589,16570,16935,22254,25313,25313,25313,
%U 42891,28793,32768,52795,65504,59178,73355,89033,88632,107660,129045,129045,153471,167646,167646,182446,182446,336130,197244,233297,330472,307358,270167,355325,378466,332156
%N Compound filter (summands of A004001 & summands of A005185): a(n) = P(A286541(n), A286559(n)), where P(n,k) is sequence A000027 used as a pairing function, with a(1) = a(2) = 0.
%H Antti Karttunen, <a href="/A286560/b286560.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PairingFunction.html">Pairing Function</a>
%F a(1) = a(2) = 0, for n > 2, a(n) = (1/2)*(2 + ((A286541(n)+A286559(n))^2) - A286541(n) - 3*A286559(n)).
%o (Scheme) (define (A286560 n) (if (<= n 2) 0 (* (/ 1 2) (+ (expt (+ (A286541 n) (A286559 n)) 2) (- (A286541 n)) (- (* 3 (A286559 n))) 2))))
%Y Cf. A004001, A005185, A284019, A286541, A286559, A286569.
%K nonn
%O 1,4
%A _Antti Karttunen_, May 18 2017
|
