OFFSET
1,1
COMMENTS
A Beatty sequence.
LINKS
FORMULA
a(n) = floor(n*log(3)/log(3/2)).
a(n) = A054414(n) - 1. - Ruud H.G. van Tol, May 10 2024
MAPLE
seq(floor(n*log[3/2](3)), n=1..100); # Robert Israel, Nov 09 2015
MATHEMATICA
Table[Floor[n*Log[3/2, 3]], {n, 61}]
PROG
(Magma) [Floor(n*Log(3)/Log(3/2)): n in [1..80]]; // Vincenzo Librandi, Apr 17 2015
(PARI) vector(100, n, floor(n*log(3)/log(3/2))) \\ Altug Alkan, Nov 10 2015
(Python)
from operator import sub
from sympy import integer_log
def A117630(n):
def f(x): return n+sub(*integer_log(1<<x+1, 3))
m, k = n, f(n)
while m != k: m, k = k, f(k)
return m # Chai Wah Wu, Oct 09 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 08 2006
STATUS
approved