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