|
%I #23 Aug 02 2018 13:05:13
%S 1,3,7,15,22,27,37,48,61,69,85,99,118,129,142,150,157,171,181,192,205,
%T 213,220,225,235,246,259,276,292,306,316,327,340,348,364,378,397,417,
%U 430,438,454,468,487,507,520,528,544,558,577,597
%N Start with 1, skip (sum of digits of n) numbers, accept next number.
%H Robert G. Wilson v, <a href="/A229527/b229527.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%F a(n+1) = a(n) + (sum of digits of a(n)) + 1.
%e a(1)=1, a(2)=1+1+1=3, a(3)=3+3+1=7, a(4)=7+7+1=15, a(5)=15+1+5+1=22, a(6)=22+2+2+1=27, ...
%t a[n_] := a[n] = a[n - 1] + 1 + Plus @@ IntegerDigits@a[n - 1]; a[1] = 1; Array[a, 50] (* _Robert G. Wilson v_, Aug 01 2018 *)
%Y Cf. A007612, A004207, A160939.
%K nonn,base
%O 1,2
%A _Dave Durgin_, Sep 25 2013
|
