|
%I #5 Dec 05 2013 19:57:05
%S 1,1,1,1,1,1,1,1,1,1,2,2,3,4,5,6,7,8,9,1,2,2,3,6,10,15,21,28,36,1,3,3,
%T 2,4,10,20,35,56,84,1,4,6,4,2,5,15,35,70,126,1,5,10,10,5,2,6,21,56,
%U 126,1,6,15,20,15,6,2,7,28,84,1,7,21,35,35,21,7,2,8,36,1,8,28,56,70,56,28,8,2
%N Let n = abc...xyz denote the decimal digits of n. Then a(n) = C(a,z)+C(b,y)+C(c,x)+...+C(x,c)+C(y,b)+C(z,a).
%t f[n_] := Plus @@ Binomial[ IntegerDigits[n], Reverse[ IntegerDigits[ n]]]; Table[ f[n], {n, 88}]
%Y Cf. A111696, A111634.
%K base,nonn
%O 0,11
%A _Amarnath Murthy_ and _Robert G. Wilson v_, Aug 19 2005
|
