|
%I #7 Mar 29 2015 12:00:32
%S 0,0,2,0,14,20,32,0,254,492,932,1584,3104,4160,8192,0,65534,131036,
%T 261836,521968,1038884,2044440,4029984,7607296,15306272,27305280,
%U 53360192,77448960,201334784,268451840,536870912,0,4294967294
%N Sum of even entries in row n of Pascal's triangle.
%C a(n) = 0 iff n = 2^k - 1.
%C A088560(n) = A088504(n) iff n = 2^k - 2, k>1. A088560(n) > A088504(n) iff n = 2^k - 1.
%F A088504(n) + A088560(n) = 2^n. A088504(n) - A088560(n) = A085814(n).
%t f[n_] := Plus @@ Select[ Table[ Binomial[n, i], {i, 0, n}], EvenQ[ # ] & ]; Table[ f[n], {n, 0, 35}] (* _Robert G. Wilson v_, Nov 19 2003 *)
%Y Cf. A048967.
%K nonn
%O 0,3
%A Yuval Dekel (dekelyuval(AT)hotmail.com), Nov 18 2003
%E Edited and extended by _Robert G. Wilson v_ and _Ray Chandler_, Nov 19 2003
|
