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 A278163 #9 Nov 16 2016 11:08:54 %S A278163 0,1,1,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5, %T A278163 5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,7,7,7, %U A278163 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 %N A278163 a(n) = the least k such that A131205(1+k) >= n; each n occurs A000123(n) times. %C A278163 Greatest monotonic left inverse of A131205(1+n). %H A278163 Antti Karttunen, <a href="/A278163/b278163.txt">Table of n, a(n) for n = 1..9669</a> %F A278163 a(A131205(1+n)) = n. %o A278163 (Scheme) %o A278163 (define (A278163 n) (let loop ((k 0)) (if (>= (A131205 (+ 1 k)) n) k (loop (+ 1 k))))) %o A278163 (definec (A131205 n) (if (= 1 n) 1 (+ (A000123 (- n 1)) (A131205 (- n 1))))) %o A278163 ;; For other code, see A277903. %Y A278163 Cf. A000123, A131205, A277903, A278164. %K A278163 nonn %O A278163 1,4 %A A278163 _Antti Karttunen_, Nov 15 2016