A061864 Odd numbers that are the sum of two numbers with the same digits.

33, 55, 77, 99, 121, 143, 165, 187, 211, 233, 255, 277, 299, 303, 321, 323, 343, 345, 363, 365, 367, 383, 387, 389, 403, 409, 411, 413, 423, 431, 433, 435, 443, 453, 455, 457, 463, 475, 477, 479, 483, 497, 499, 501, 505, 519, 521, 523, 525, 541, 543, 545

Offset

0,1

Links

Table of n, a(n) for n=0..51.

Example

211 = 101+110

Mathematica

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} ] ] ]

Crossrefs

Sequence in context: A229254 A242957 A024628 * A075810 A132288 A242605

Adjacent sequences: A061861 A061862 A061863 * A061865 A061866 A061867

Keyword

base,easy,nonn

Author

Erich Friedman, Jun 23 2001

Status

approved