OFFSET
0,2
COMMENTS
a(1)= 1 + 1 + 1 + 1 = 4 ; a(12) = 12 + 21 + 3 + 2 = 38.
MATHEMATICA
a[n_]:=n+IntegerReverse[n]+Total[IntegerDigits[n]]+Times@@IntegerDigits[n]; Array[a, 63, 0] (* Stefano Spezia, Feb 09 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 07 2009
EXTENSIONS
a(0) = 0 prepended by Stefano Spezia, Feb 09 2023
STATUS
approved