%I #13 Jan 25 2023 07:15:00
%S 1,2,3,5,6,7,9,10,11,13,14,15,17,18,19,21,22,23,24,26,27,28,30,31,32,
%T 34,35,36,38,39,40,42,43,44,45,47,48,49,51,52,53,55,56,57,59,60,61,63,
%U 64,65,66,68,69,70,72,73,74,76,77,78,80,81,82,84,85,86
%N a(n) = floor(n*coth(1)).
%C Beatty sequence for coth(1) = (e^2+1)/(e^2-1) = 1.31303... = A073747; complement of A109238.
%C From _Reinhard Zumkeller_, Aug 11 2009: (Start)
%C a(n) = A164087(n) for n <= 20;
%C a(n) = A109239(A109238(n)) and A109239(a(n)) = A109238(n). (End)
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HyperbolicCotangent.html">Hyperbolic Cotangent</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>
%Y Cf. A109238, A109239, A109231, A109234.
%Y Cf. A073747.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Jun 23 2005
%E Typo in comment corrected by _Reinhard Zumkeller_, Aug 10 2009
|