This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A247784 #14 Sep 08 2022 08:46:09
%S A247784 1,2,2,3,4,5,5,6,7,8,8,9,10,10,11,12,13,13,14,15,16,16,17,18,19,19,20,
%T A247784 21,22,22,23,24,24,25,26,27,27,28,29,30,30,31,32,33,33,34,35,35,36,37,
%U A247784 38,38,39,40,41,41,42,43,44,44,45,46,47,47,48,49,49,50
%N A247784 a(n) = floor(1/(e - (1 + 1/n)^n)).
%C A247784 a(n+1) - a(n) is in {0,1} for n >= 0.
%H A247784 Clark Kimberling, <a href="/A247784/b247784.txt">Table of n, a(n) for n = 1..5000</a>
%F A247784 a(n) ~ 2*exp(-1) * n. - _Vaclav Kotesovec_, Oct 09 2014
%t A247784 z = 200; t = Table[Floor[1/(E - (1 + 1/k)^k)], {k, 1, z}] (*A247784*)
%t A247784 d = Differences[t]
%t A247784 Flatten[Position[d, 0]] (*A247785*)
%t A247784 Flatten[Position[d, 1]] (*A247786*)
%o A247784 (PARI) a(n) = floor(1/(exp(1) - (1 + 1/n)^n)); \\ _Michel Marcus_, Sep 26 2014
%o A247784 (Magma) [Floor(1/(Exp(1) - (1 + 1/n)^n)): n in [1..100]]; // _G. C. Greubel_, Sep 14 2018
%Y A247784 Cf. A247778, A247785, A247786.
%K A247784 nonn,easy
%O A247784 1,2
%A A247784 _Clark Kimberling_, Sep 24 2014