cp's OEIS Frontend

A117630 Complement of A056576.

%I A117630 #42 Oct 09 2024 21:25:45
%S A117630 2,5,8,10,13,16,18,21,24,27,29,32,35,37,40,43,46,48,51,54,56,59,62,65,
%T A117630 67,70,73,75,78,81,83,86,89,92,94,97,100,102,105,108,111,113,116,119,
%U A117630 121,124,127,130,132,135,138,140,143,146,149,151,154,157,159,162,165
%N A117630 Complement of A056576.
%C A117630 A Beatty sequence.
%H A117630 Robert Israel, <a href="/A117630/b117630.txt">Table of n, a(n) for n = 1..10000</a>
%H A117630 <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%F A117630 a(n) = floor(n*log(3)/log(3/2)).
%F A117630 a(n) = A054414(n) - 1. - _Ruud H.G. van Tol_, May 10 2024
%p A117630 seq(floor(n*log[3/2](3)), n=1..100); # _Robert Israel_, Nov 09 2015
%t A117630 Table[Floor[n*Log[3/2, 3]], {n, 61}]
%o A117630 (Magma) [Floor(n*Log(3)/Log(3/2)): n in [1..80]]; // _Vincenzo Librandi_, Apr 17 2015
%o A117630 (PARI) vector(100, n, floor(n*log(3)/log(3/2))) \\ _Altug Alkan_, Nov 10 2015
%o A117630 (Python)
%o A117630 from operator import sub
%o A117630 from sympy import integer_log
%o A117630 def A117630(n):
%o A117630     def f(x): return n+sub(*integer_log(1<<x+1,3))
%o A117630     m, k = n, f(n)
%o A117630     while m != k: m, k = k, f(k)
%o A117630     return m # _Chai Wah Wu_, Oct 09 2024
%Y A117630 Cf. A054414, A056576.
%Y A117630 Cf. A102525 (decimal expansion of log_3(2)).
%Y A117630 Cf. A254312 (sequence arises as exponents in array definition).
%K A117630 nonn
%O A117630 1,1
%A A117630 _Robert G. Wilson v_, Apr 08 2006