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 A227740 #12 May 12 2017 15:15:28 %S A227740 0,0,1,0,0,1,0,1,2,0,1,0,0,1,0,1,2,0,1,2,3,0,1,2,0,1,0,1,2,0,1,0,0,1, %T A227740 0,1,2,0,1,2,3,0,1,2,0,1,2,3,0,1,2,3,4,0,1,2,3,0,1,2,0,1,0,1,2,0,1,2, %U A227740 3,0,1,2,0,1,0,1,2,0,1,0,0,1,0,1,2,0,1,2,3 %N A227740 Integers from 0 to A037834(n) followed by integers from 0 to A037834(n+1) and so on. %C A227740 Equivalently, integers from 0 to A005811(n)-1 followed by integers from 0 to A005811(n+1)-1 and so on. %H A227740 Vincenzo Librandi, <a href="/A227740/b227740.txt">Table of n, a(n) for n = 1..2272</a> %F A227740 a(n) = n - (1 + A173318(A227737(n)-1)). %t A227740 Table[Range[0, #] &@ Total@ Flatten@ Map[Abs@ Differences@ # &, %t A227740 Partition[IntegerDigits[n, 2], 2, 1]], {n, 34}] // Flatten (* _Michael De Vlieger_, May 09 2017 *) %o A227740 (Scheme) (define (A227740 n) (- n (+ 1 (A173318 (- (A227737 n) 1))))) %Y A227740 Cf. A227737, A227741, A005811, A037834, A173318. %Y A227740 Cf. also A227736, A227738, A227739. %K A227740 nonn %O A227740 1,9 %A A227740 _Antti Karttunen_, Jul 25 2013