cp's OEIS Frontend

A137418 Limiting sequence when we start with positive integers (A000027) and at step n >= 1 add to the term at position n + digitsum(a(n)) the value digitsum(a(n)).

%I A137418 #7 Aug 09 2022 05:41:33
%S A137418 1,3,3,4,8,9,7,12,9,10,15,12,21,21,27,19,26,27,19,20,21,24,23,36,33,
%T A137418 36,36,39,39,30,37,32,45,34,44,45,42,38,39,52,70,51,57,44,54,46,54,61,
%U A137418 60,50,63,60,53,63,85,75,57,64,59,69,69,62,72,64,65,66,67,103,81,78,71,85
%N A137418 Limiting sequence when we start with positive integers (A000027) and at step n >= 1 add to the term at position n + digitsum(a(n)) the value digitsum(a(n)).
%H A137418 Michel Marcus, <a href="/A137418/b137418.txt">Table of n, a(n) for n = 1..10000</a>
%o A137418 (PARI) lista(nn) = my(va = [1..nn]); for (k=1, nn, my(i = k+sumdigits(va[k])); if (i<= #va, va[i]+=sumdigits(va[k])); ); va; \\ _Michel Marcus_, Aug 09 2022
%Y A137418 Cf. A000027, A007953.
%K A137418 easy,nonn,base
%O A137418 1,2
%A A137418 _Ctibor O. Zizka_, Apr 16 2008
%E A137418 Extended by _Klaus Brockhaus_, Apr 23 2008