cp's OEIS Frontend

A277903 a(n) = the least k such that A000123(k) >= n.

%I A277903 #13 Nov 16 2016 11:07:52
%S A277903 0,1,2,2,3,3,4,4,4,4,5,5,5,5,6,6,6,6,6,6,7,7,7,7,7,7,8,8,8,8,8,8,8,8,
%T A277903 8,8,9,9,9,9,9,9,9,9,9,9,10,10,10,10,10,10,10,10,10,10,10,10,10,10,11,
%U A277903 11,11,11,11,11,11,11,11,11,11,11,11,11,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12
%N A277903 a(n) = the least k such that A000123(k) >= n.
%C A277903 Greatest monotonic left inverse of A000123.
%C A277903 Each n occurs A018819(n) times.
%H A277903 Antti Karttunen, <a href="/A277903/b277903.txt">Table of n, a(n) for n = 1..9828</a>
%F A277903 a(n) = A048675(A277905(n)).
%F A277903 a(A000123(n)) = n.
%o A277903 (Scheme)
%o A277903 (definec (A277903 n) (let loop ((k 0)) (if (>= (A000123 k) n) k (loop (+ 1 k)))))
%o A277903 (define (A000123 n) (A018819 (+ n n)))
%o A277903 (definec (A018819 n) (cond ((zero? n) 1) ((even? n) (+ (A018819 (- n 1)) (A018819 (/ n 2)))) (else (A018819 (- n 1)))))
%Y A277903 Cf. A000123, A018819, A048675, A277904, A277905, A278163.
%K A277903 nonn
%O A277903 1,3
%A A277903 _Antti Karttunen_, Nov 14 2016