cp's OEIS Frontend

A098732 Consider the sequence {b(n), n >= 1} of digits of the integers: 0 1 2 3 4 5 6 7 8 9 1 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 2 0... (A033307); a(n) = n - b(n).

%I A098732 #6 Oct 15 2014 14:23:25
%S A098732 1,1,1,1,1,1,1,1,1,1,10,12,12,13,14,14,16,15,18,16,20,17,22,18,24,19,
%T A098732 26,20,28,21,29,32,31,33,33,34,35,35,37,36,39,37,41,38,43,39,45,40,47,
%U A098732 41,48,52,50,53,52,54,54,55,56,56,58,57,60,58,62,59,64,60,66,61,67,72,69
%N A098732 Consider the sequence {b(n), n >= 1} of digits of the integers: 0 1 2 3 4 5 6 7 8 9 1 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 2 0... (A033307); a(n) = n - b(n).
%H A098732 Harvey P. Dale, <a href="/A098732/b098732.txt">Table of n, a(n) for n = 1..1000</a>
%t A098732 First[#]-Last[#]&/@Module[{ch=Flatten[IntegerDigits/@Range[ 0,50]]},Thread[ {Range[Length[ch]],ch}]] (* _Harvey P. Dale_, Oct 15 2014 *)
%Y A098732 Cf. A098727, etc.
%K A098732 base,easy,nonn
%O A098732 1,11
%A A098732 _Alexandre Wajnberg_, Sep 30 2004
%E A098732 More terms from _Joshua Zucker_, May 18 2006