|
%I #26 Jul 26 2022 10:09:03
%S 1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,
%T 44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,
%U 90,92,94,96,98,100,103,106,109,112,115,118,121,124,127,130,133,136
%N a(1) = 1; a(n+1) = a(n) + number of decimal digits of a(n) for n > 0.
%H Harry J. Smith, <a href="/A064223/b064223.txt">Table of n, a(n) for n = 1..1000</a>
%F a(1) = 1; a(n+1) = a(n) + ceiling(log_10(a(n) + 1)) for n > 0. [corrected by _Harry J. Smith_, Sep 10 2009]
%t NestList[#+IntegerLength[#]&,1,70] (* _Harvey P. Dale_, Jul 26 2011 *)
%o (PARI) { a=0; for (n=1, 1000, write("b064223.txt", n, " ", a+=#Str(a)) ) } \\ _Harry J. Smith_, Sep 10 2009
%o (Haskell)
%o a064223 n = a064223_list !! (n-1)
%o a064223_list = iterate (\x -> x + (fromIntegral $ a055642 x)) 1
%o -- _Reinhard Zumkeller_, Aug 02 2012
%o (Python)
%o from itertools import islice
%o def agen():
%o an = 1
%o while True: yield an; an += len(str(an))
%o print(list(islice(agen(), 67))) # _Michael S. Branicky_, Jul 26 2022
%Y Cf. A055642.
%K nice,nonn,base
%O 1,2
%A _Reinhard Zumkeller_, Sep 21 2001
|
