%I #17 Jul 09 2021 01:39:28
%S 1,2,4,5,7,8,10,11,13,14,16,17,19,20,22,23,24,26,27,29,30,32,33,35,36,
%T 38,39,41,42,44,45,46,48,49,51,52,54,55,57,58,60,61,63,64,66,67,68,70,
%U 71,73,74,76,77,79,80,82,83,85,86,88,89,90,92,93,95,96,98,99,101,102
%N Beatty sequence for 1/(e^Pi - Pi^e), complement of A127451.
%C Differs from A054386 at term n=122, where A054386(122)=178, A127450(122)=179. - _Martin Fuller_, May 10 2007
%H Martin Fuller, <a href="/A127450/b127450.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/(e^Pi - Pi^e))
%t Table[Floor[n/(Exp[Pi] - Pi^E)], {n, 70}]
%Y Cf. A063504, A054386, A059564.
%K easy,nonn
%O 1,2
%A _Robert G. Wilson v_, Jan 14 2007
%E Definition corrected by _N. J. A. Sloane_, May 10 2007