%I A061681
%S A061681 1,2,4,8,16,17,18,19,20,22,24,26,28,30,33,36,39,42,46,50,55,60,66,72,
%T A061681 79,86,94,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,
%U A061681 118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134
%N A061681 a(0)=1; a(n)=a(n-1)+lead(a(n-1)) for n > 0 where for an integer x lead(x) 
               is the leading digit in base 10.
%H A061681 Reinhard Zumkeller, <a href="b061681.txt">Table of n, a(n) for n = 0..10000</
               a>
%e A061681 a(100)=176; a(307)=996; a(1000)=1697; a(3132)=9995; a(10000)=16871
%o A061681 (PARI) { default(realprecision, 100); r=log(10); for (n=0, 1000, if (n==0, 
               a=1, a+=a\10^(log(a)\r)); write("b061681.txt", n, " ", a) ) } [From 
               Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 26 2009]
%Y A061681 Sequence in context: A083780 A101466 A129851 this_sequence A100787 A115795 
               A048718
%Y A061681 Adjacent sequences: A061678 A061679 A061680 this_sequence A061682 A061683 
               A061684
%K A061681 base,easy,nonn,nice
%O A061681 0,2
%A A061681 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jun 18 2001
%E A061681 More terms from Naohiro Nomoto (n_nomoto(AT)yabumi.com), Sep 10 2001