OFFSET
1,2
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
a(13)=6 because (1^2+3^2)-(1+3)=6.
MATHEMATICA
sd[n_]:= Module[{idn = IntegerDigits[n]}, Total[idn^2 - idn]]; Array[sd, 80] (* Vincenzo Librandi, Aug 02 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Oct 31 2002
STATUS
approved