STATUS
editing
approved
editing
approved
(PARI) a(n)=my(d=digits(n)); sum(i=1, #d, d[i]^2)+sumdigits(n) \\ Charles R Greathouse IV, Nov 26 2016
approved
editing
proposed
approved
editing
proposed
Vincenzo Librandi, <a href="/A077253/b077253.txt">Table of n, a(n) for n = 1..1000</a>
nonn,base,easy
approved
editing
editing
approved
sd[n_]:=Module[{idn=IntegerDigits[n]}, Total[idn+idn^2]]; Array[sd, 80] (* Harvey P. Dale, Aug 12 2012 *)
approved
editing
_Zak Seidov (zakseidov(AT)yahoo.com), _, Nov 01 2002
nonn,base,new
Zakir F. Zak Seidov (zakseidov(AT)yahoo.com), Nov 01 2002
nonn,base,new
Zakir F. Seidov (zfseidovzakseidov(AT)ycariel.yosh.acyahoo.ilcom), Nov 01 2002