%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