A111633 - OEIS

%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