%I #32 Aug 16 2020 01:53:01
%S 1,3,4,6,7,9,11,12,14,15,17,18,20,22,23,25,26,28,30,31,33,34,36,37,39,
%T 41,42,44,45,47,49,50,52,53,55,56,58,60,61,63,64,66,68,69,71,72,74,75,
%U 77,79,80,82,83,85,87,88,90,91,93,94,96,98,99,101,102,104,105,107,109
%N Beatty sequence for e/(e-1); complement of A022843.
%H Reinhard Zumkeller, <a href="/A054385/b054385.txt">Table of n, a(n) for n = 1..10000</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>
%p A054385 := proc(n)
%p floor(n*exp(1)/(exp(1)-1)) ;
%p end proc: # _R. J. Mathar_, Jan 25 2015
%t a[n_] := Floor[n E/(E - 1)];
%t Array[a, 100] (* _Jean-François Alcover_, Mar 24 2020 *)
%o (Haskell)
%o a054385 n = a054385_list !! n
%o a054385_list = map (floor . (* e') . fromIntegral) [1..]
%o where e' = e / (e - 1); e = exp 1
%o -- _Reinhard Zumkeller_, Jul 06 2013
%o (Python)
%o from sympy import E
%o print([n*E//(E-1) for n in range(1, 70)]) # _Karl V. Keller, Jr._, Aug 07 2020
%Y Cf. A022843.
%Y Cf. A108599.
%K nonn
%O 1,2
%A _Eric W. Weisstein_