A247786 - OEIS

%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