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 A247786 #8 Oct 28 2014 09:34:36
%S A247786 1,3,4,5,7,8,9,11,12,14,15,16,18,19,20,22,23,24,26,27,28,30,31,33,34,
%T A247786 35,37,38,39,41,42,43,45,46,48,49,50,52,53,54,56,57,58,60,61,62,64,65,
%U A247786 67,68,69,71,72,73,75,76,77,79,80,81,83,84,86,87,88,90
%N A247786 Numbers k such that A247784(k+1) - A247784(k) = 1.
%C A247786 A247785 and A247786 are a complementary pair.
%H A247786 Clark Kimberling, <a href="/A247786/b247786.txt">Table of n, a(n) for n = 1..3000</a>
%t A247786 z = 200; t = Table[Floor[1/(E - (1 + 1/k)^k)], {k, 1, z}] (*A247784*)
%t A247786 d = Differences[t]
%t A247786 Flatten[Position[d, 0]] (*A247785*)
%t A247786 Flatten[Position[d, 1]] (*A247786*)
%Y A247786 Cf. A247778, A247784, A247785.
%K A247786 nonn,easy
%O A247786 1,2
%A A247786 _Clark Kimberling_, Sep 24 2014