%I #13 Aug 06 2024 09:05:38
%S 1,2,4,8,16,22,26,38,62,74,102,102,102,102,102,102,102,102,102,102,
%T 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,
%U 102,102,102,102,102,102,102,102,102,102,102,102,102,102
%N a(0)=1; thereafter a(n+1) = a(n) + (product of digits of a(n)).
%C Never gets above 102.
%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%H <a href="/index/Rec#order_01">Index entries for linear recurrences with constant coefficients</a>, signature (1).
%t NestList[#+Times@@IntegerDigits[#]&,1,50] (* _Harvey P. Dale_, Jul 30 2023 *)
%o (Haskell)
%o a230102 n = a230102_list !! n
%o a230102_list = iterate a230099 1 -- _Reinhard Zumkeller_, Oct 13 2013
%Y Cf. A007954, A051801, A063108, A230099, A232485.
%K nonn,base
%O 0,2
%A _N. J. A. Sloane_, Oct 12 2013