OFFSET
1,2
COMMENTS
A111633: Let n = abc... 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).
MATHEMATICA
f[n_] := Plus @@ Binomial[ IntegerDigits[n], Reverse[ IntegerDigits[ n]]]; Table[ f[n], {n, 0, 100}]; g[n_] := Block[{k = 1}, While[f[k] != n, k++ ]; k]; Table[ g[n], {n, 50}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Robert G. Wilson v, Aug 19 2005
STATUS
approved