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 A247785 #8 Oct 28 2014 09:32:52
%S A247785 2,6,10,13,17,21,25,29,32,36,40,44,47,51,55,59,63,66,70,74,78,82,85,
%T A247785 89,93,97,100,104,108,112,116,119,123,127,131,135,138,142,146,150,153,
%U A247785 157,161,165,169,172,176,180,184,187,191,195,199,203,206,210,214
%N A247785 Numbers k such that A247784(k+1) = A247784(k).
%C A247785 A247785 and A247786 are a complementary pair.
%H A247785 Clark Kimberling, <a href="/A247785/b247785.txt">Table of n, a(n) for n = 1..1000</a>
%t A247785 z = 200; t = Table[Floor[1/(E - (1 + 1/k)^k)], {k, 1, z}] (*A247784*)
%t A247785 d = Differences[t]
%t A247785 Flatten[Position[d, 0]] (*A247785*)
%t A247785 Flatten[Position[d, 1]] (*A247786*)
%Y A247785 Cf. A247779, A247784, A247786.
%K A247785 nonn,easy
%O A247785 1,1
%A A247785 _Clark Kimberling_, Sep 24 2014