cp's OEIS Frontend

A054385 Beatty sequence for e/(e-1); complement of A022843.

%I A054385 #33 Feb 16 2025 08:32:42
%S A054385 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 A054385 41,42,44,45,47,49,50,52,53,55,56,58,60,61,63,64,66,68,69,71,72,74,75,
%U A054385 77,79,80,82,83,85,87,88,90,91,93,94,96,98,99,101,102,104,105,107,109
%N A054385 Beatty sequence for e/(e-1); complement of A022843.
%H A054385 Reinhard Zumkeller, <a href="/A054385/b054385.txt">Table of n, a(n) for n = 1..10000</a>
%H A054385 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BeattySequence.html">Beatty Sequence</a>
%H A054385 <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%p A054385 A054385 := proc(n)
%p A054385     floor(n*exp(1)/(exp(1)-1)) ;
%p A054385 end proc: # _R. J. Mathar_, Jan 25 2015
%t A054385 a[n_] := Floor[n E/(E - 1)];
%t A054385 Array[a, 100] (* _Jean-François Alcover_, Mar 24 2020 *)
%o A054385 (Haskell)
%o A054385 a054385 n = a054385_list !! n
%o A054385 a054385_list = map (floor . (* e') . fromIntegral) [1..]
%o A054385    where e' = e / (e - 1); e = exp 1
%o A054385 -- _Reinhard Zumkeller_, Jul 06 2013
%o A054385 (Python)
%o A054385 from sympy import E
%o A054385 print([n*E//(E-1) for n in range(1, 70)]) # _Karl V. Keller, Jr._, Aug 07 2020
%Y A054385 Cf. A022843.
%Y A054385 Cf. A108599.
%K A054385 nonn
%O A054385 1,2
%A A054385 _Eric W. Weisstein_