OFFSET
1,1
COMMENTS
a(12) > 10^20. - Jon E. Schoenfield, Nov 15 2013
EXAMPLE
149 is in the sequence because 149 = 1 + 4 + 9 + 41 + 94.
MATHEMATICA
Select[Table[ n, {n, 10000000}], # == Plus @@ ToExpression[ Flatten[Table[ StringTake[StringReverse[ToString[ # ]], {i, j}], {i, StringLength[ToString[ # ]]}, {j, i, StringLength[ToString[ # ]]}]]] - ToExpression[StringReverse[ToString[ # ]]] &]
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Tanya Khovanova, Sep 04 2006
EXTENSIONS
a(4) from Donovan Johnson, Mar 30 2010
a(5) from Jon E. Schoenfield, Nov 12 2013
a(6) - a(11) from Jon E. Schoenfield, Nov 13 2013
STATUS
approved