|
2, 5, 8, 10, 13, 16, 18, 21, 24, 27, 29, 32, 35, 37, 40, 43, 46, 48, 51, 54, 56, 59, 62, 65, 67, 70, 73, 75, 78, 81, 83, 86, 89, 92, 94, 97, 100, 102, 105, 108, 111, 113, 116, 119, 121, 124, 127, 130, 132, 135, 138, 140, 143, 146, 149, 151, 154, 157, 159, 162, 165
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A Beatty sequence.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = floor(n*log(3)/log(3/2)).
|
|
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
|
(PARI) vector(100, n, floor(n*log(3)/log(3/2))) \\ Altug Alkan, Nov 10 2015
|
|
CROSSREFS
|
Cf. A102525 (decimal expansion of log_3(2)).
Cf. A254312 (sequence arises as exponents in array definition).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|