%I #4 Mar 31 2012 10:26:35
%S 33,55,77,99,121,143,165,187,211,233,255,277,299,303,321,323,343,345,
%T 363,365,367,383,387,389,403,409,411,413,423,431,433,435,443,453,455,
%U 457,463,475,477,479,483,497,499,501,505,519,521,523,525,541,543,545
%N Odd numbers that are the sum of two numbers with the same digits.
%e 211 = 101+110
%t dtn[ L_ ] := Fold[ 10*#1+#2&, 0, L ] f[ n_ ] := Module[ {}, a=IntegerDigits[ n ]; b=Map[ dtn, Select[ Permutations[ a ], First[ # ]>0& ] ] ] g[ n_ ] := Select[ Flatten[ Outer[ Plus, f[ n ], f[ n ] ] ], OddQ ] Union[ Flatten[ Table[ g[ n ], {n, 1, 999} ] ] ]
%K base,easy,nonn
%O 0,1
%A _Erich Friedman_, Jun 23 2001
|