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 A267108 #7 Jan 17 2016 20:26:07 %S A267108 1,1,2,1,2,3,2,1,2,3,4,2,3,3,2,1,2,3,4,5,2,3,4,3,4,4,2,3,3,3,2,1,2,3, %T A267108 4,5,6,2,3,4,5,3,4,5,4,5,5,2,3,4,3,4,4,3,4,4,4,2,3,3,3,3,2,1,2,3,4,5, %U A267108 6,7,2,3,4,5,6,3,4,5,6,4,5,6,5,6,6,2,3,4,5,3,4,5,4,5,5,3,4,5,4,5,5,4,5,5,5,2,3,4,3,4,4,3,4,4,4,3,4,4,4,4 %N A267108 a(n) = A000120(A267111(n)). %H A267108 Antti Karttunen, <a href="/A267108/b267108.txt">Table of n, a(n) for n = 1..8192</a> %F A267108 a(1) = 1; for n > 1, if A265332(n) = 1 [when n is one of the terms of A088359], a(n) = 1 + a(A004001(n)-1), otherwise a(n) = a(n-A004001(n)). %F A267108 a(n) = A000120(A267111(n)). %F A267108 Other identities. For all n >= 1: %F A267108 a(n) = A070939(n) - A267109(n). %o A267108 (Scheme, with memoization-macro definec) %o A267108 (definec (A267108 n) (cond ((<= n 1) n) ((= 1 (A265332 n)) (+ 1 (A267108 (- (A004001 n) 1)))) (else (A267108 (- n (A004001 n)))))) %Y A267108 Cf. A000120, A004001, A070939, A088359, A265332, A267109, A267110, A267111. %K A267108 nonn %O A267108 1,3 %A A267108 _Antti Karttunen_, Jan 16 2016