|
%I #18 Sep 08 2022 08:45:45
%S 1,3,5,7,9,11,13,15,17,19,12,14,16,18,20,22,24,26,28,30,23,25,27,29,
%T 31,33,35,37,39,41,34,36,38,40,42,44,46,48,50,52,45,47,49,51,53,55,57,
%U 59,61,63,56,58,60,62,64,66,68,70,72,74,67,69,71,73,75,77,79,81,83,85,78
%N a(n) = n + digital sum (n-1).
%H Vincenzo Librandi, <a href="/A160939/b160939.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n+1) = A062028(n) + 1 for n >= 1. - _Michel Marcus_, Aug 02 2018
%e Writing ds() for the sum of digits (A007953),
%e a(8) = 8 + ds(7) = 8 + 7 = 15,
%e a(15) = 15 + ds(14) = 15 + 5 = 20,
%e a(26) = 26 + ds(25) = 26 + 7 = 33.
%t Table[n+Total[IntegerDigits[n-1]],{n,80}] (* _Harvey P. Dale_, Dec 08 2012 *)
%o (PARI) a(n) = n + sumdigits(n-1); \\ _Michel Marcus_, Aug 02 2018
%o (Magma) [n + &+Intseq(n-1): n in [1..80]]; // _Vincenzo Librandi_, Nov 09 2018
%Y Cf. A007953, A062028.
%K nonn,base
%O 1,2
%A _Claudio Meller_, May 30 2009
|
