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