This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A098728 #7 Aug 07 2019 18:42:35 %S A098728 0,0,0,0,0,0,0,0,0,9,11,11,12,13,13,15,14,17,15,19,16,21,17,23,18,25, %T A098728 19,27,20,28,31,30,32,32,33,34,34,36,35,38,36,40,37,42,38,44,39,46,40, %U A098728 47,51,49,52,51,53,53,54,55,55,57,56,59,57,61,58,63,59,65,60,66,71,68,72 %N A098728 Consider the sequence {b(n), n >= 1} of digits of the natural (or counting) numbers: 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... (A007376); a(n) = n - b(n). %C A098728 Subtract each digit of the counting numbers from its rank. %H A098728 Harvey P. Dale, <a href="/A098728/b098728.txt">Table of n, a(n) for n = 0..1000</a> %e A098728 The sequence of digits of the counting numbers is %e A098728 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... %e A098728 The 15th term, for instance, is a 2. Thus 15-2=13 is the 15th term of this sequence. %e A098728 Next one is a 1, thus 16 (the rank) - 1 (the 16th digit of the decimal expansion of the counting numbers) = 15, which is the 16th term of this sequence. %e A098728 Next one is 17-3=14 %t A098728 With[{c=Flatten[IntegerDigits/@Range[70]]},#[[1]]-#[[2]]&/@Partition[ Riffle[ Range[Length[c]],c],2]] (* _Harvey P. Dale_, Aug 07 2019 *) %K A098728 base,easy,nonn %O A098728 0,10 %A A098728 _Alexandre Wajnberg_, Sep 30 2004 %E A098728 More terms from Stacy Hawthorne (shawtho1(AT)ashland.edu), Jan 12 2006