cp's OEIS Frontend

A062028 a(n) = n + sum of the digits of n.

%I A062028 #64 Dec 05 2024 14:45:50
%S A062028 0,2,4,6,8,10,12,14,16,18,11,13,15,17,19,21,23,25,27,29,22,24,26,28,
%T A062028 30,32,34,36,38,40,33,35,37,39,41,43,45,47,49,51,44,46,48,50,52,54,56,
%U A062028 58,60,62,55,57,59,61,63,65,67,69,71,73,66,68,70,72,74,76,78,80,82,84,77
%N A062028 a(n) = n + sum of the digits of n.
%C A062028 a(n) = A248110(n,A007953(n)). - _Reinhard Zumkeller_, Oct 01 2014
%H A062028 Harry J. Smith and N. J. A. Sloane, <a href="/A062028/b062028.txt">Table of n, a(n) for n = 0..10000</a> (first 1000 terms were computed by Harry J. Smith)
%H A062028 <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%F A062028 a(n) = n + A007953(n).
%F A062028 a(n) = A160939(n+1) - 1. - _Filip Zaludek_, Oct 26 2016
%e A062028 a(34) = 34 + 3 + 4 = 41, a(40) = 40 + 4 = 44.
%p A062028 with(numtheory): for n from 1 to 100 do a := convert(n,base,10):
%p A062028 c := add(a[i],i=1..nops(a)): printf(`%d,`,n+c); od:
%p A062028 A062028 := n -> n+add(i,i=convert(n,base,10)) # _M. F. Hasler_, Nov 08 2018
%t A062028 Table[n + Total[IntegerDigits[n]], {n, 0, 100}]
%o A062028 (PARI) A062028(n)=n+sumdigits(n) \\ _M. F. Hasler_, Jul 19 2015
%o A062028 (Haskell) a062028 n = a007953 n + n  -- _Reinhard Zumkeller_, Oct 11 2013
%o A062028 (Python)
%o A062028 def a(n): return n + sum(map(int, str(n)))
%o A062028 print([a(n) for n in range(71)]) # _Michael S. Branicky_, Jan 09 2023
%Y A062028 Cf. A007953, A006378, A048521, A107740, A066568, A064806, A176995 (range), A003052, A230093, A248110.
%Y A062028 Indices of: A047791 (primes), A107743 (composites), A066564 (squares), A084661 (cubes).
%Y A062028 Iterations: A004207 (start=1), A016052 (start=3), A007618 (start=5), A006507 (start=7), A016096 (start=9).
%K A062028 nonn,base,easy
%O A062028 0,2
%A A062028 _Amarnath Murthy_, Jun 02 2001
%E A062028 More terms from _Vladeta Jovovic_, Jun 05 2001