A077253 Sum of digits squared plus sum of digits of n.

2, 6, 12, 20, 30, 42, 56, 72, 90, 2, 4, 8, 14, 22, 32, 44, 58, 74, 92, 6, 8, 12, 18, 26, 36, 48, 62, 78, 96, 12, 14, 18, 24, 32, 42, 54, 68, 84, 102, 20, 22, 26, 32, 40, 50, 62, 76, 92, 110, 30, 32, 36, 42, 50, 60, 72, 86, 102, 120, 42, 44, 48, 54, 62, 72, 84, 98, 114, 132

Offset

1,1

Comments

Inspired by A071440. The quasi-periodic function. See also A077252.

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

a(13)=14 because (1^2+3^2)+(1+3)=14.

Mathematica

sd[n_]:=Module[{idn=IntegerDigits[n]}, Total[idn+idn^2]]; Array[sd, 80] (* Harvey P. Dale, Aug 12 2012 *)

Prog

(PARI) a(n)=my(d=digits(n)); sum(i=1, #d, d[i]^2)+sumdigits(n) \\ Charles R Greathouse IV, Nov 26 2016

Crossrefs

Cf. A071440, A002378, A077252.

Sequence in context: A102069 A160938 A160926 * A098734 A258881 A160942

Adjacent sequences: A077250 A077251 A077252 * A077254 A077255 A077256

Keyword

nonn,base,easy

Author

Zak Seidov, Nov 01 2002

Status

approved