login
Beatty sequence for log_5(10).
4

%I #23 Sep 08 2024 11:48:35

%S 1,2,4,5,7,8,10,11,12,14,15,17,18,20,21,22,24,25,27,28,30,31,32,34,35,

%T 37,38,40,41,42,44,45,47,48,50,51,52,54,55,57,58,60,61,62,64,65,67,68,

%U 70,71,72,74,75,77,78,80,81,82,84,85,87,88,90,91,92,94,95,97,98,100

%N Beatty sequence for log_5(10).

%C Beatty complement of A066343. - _Jianing Song_, Jan 27 2019

%H Harry J. Smith, <a href="/A066344/b066344.txt">Table of n, a(n) for n = 1..1000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BeattySequence.html">Beatty Sequence</a>.

%H <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>.

%F a(n) = floor(n*log_5(10)).

%t Floor[Range[100]*Log[5, 10]] (* _Paolo Xausa_, Jul 08 2024 *)

%o (PARI) { l=log(10)/log(5); for (n=1, 1000, a=floor(n*l); write("b066344.txt", n, " ", a) ) } \\ _Harry J. Smith_, Feb 11 2010

%o (Python)

%o from sympy import integer_log

%o def A066344(n): return integer_log(1<<n,5)[0]+n # _Chai Wah Wu_, Sep 08 2024

%Y Cf. A066343, A154156 (log_5(10)).

%K easy,nonn

%O 1,2

%A _Vladeta Jovovic_, Dec 15 2001