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 A236678 #7 Feb 01 2014 15:13:51 %S A236678 1,1,2,2,2,2,2,2,3,3,4,4,4,4,4,4,5,5,6,6,6,6,6,6,7,7,8,8,8,8,8,8,9,9, %T A236678 10,10,10,10,10,10,11,11,12,12,12,12,12,12,13,13,14,14,14,14,14,14,15, %U A236678 15,16,16,16,16,16,16,17,17,18,18,18,18,18,18,19,19 %N A236678 Partial sums of the characteristic function of A079599. %C A236678 This works also as almost an inverse function for A079599, as we have a(A079599(n)) = n+1 for all n. %H A236678 Antti Karttunen, <a href="/A236678/b236678.txt">Table of n, a(n) for n = 0..8192</a> %F A236678 a(0) = 1, and for n > 0, a(n) = a(n-1) + A236677(n). %o A236678 (Scheme, with _Antti_Karttunen_'s IntSeq-library for memoizing definec-macro) %o A236678 (definec (A236678 n) (if (zero? n) 1 (+ (A236678 (- n 1)) (A236677 n)))) %Y A236678 Not the same as A173711(n+6). First difference occurs at a(256), when 64 occurs here for the seventh time. %Y A236678 Cf. A236677, A079599. %K A236678 nonn %O A236678 0,3 %A A236678 _Antti Karttunen_, Jan 29 2014