OFFSET
1,2
COMMENTS
a(16) <= 547880799393. [From Donovan Johnson, May 25 2009]
EXAMPLE
For example: 54 = 45 + 4 + 5; 271 = 172 + 17 + 72 + 1 + 7 + 2.
MATHEMATICA
Select[Table[n, {n, 10000000 }], # == Plus @@ ToExpression[ Flatten[Table[ StringTake[StringReverse[ToString[ # ]], {i, j}], {i, StringLength[ToString[ # ]]}, {j, i, StringLength[ToString[ # ]]}]]] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Sep 08 2006
EXTENSIONS
a(14)-a(15) from Donovan Johnson, May 25 2009
More terms from Jon E. Schoenfield, Nov 15 2013
STATUS
approved