1,2

A247785 and A247786 are a complementary pair.

Clark Kimberling, Table of n, a(n) for n = 1..3000

z = 200; t = Table[Floor[1/(E - (1 + 1/k)^k)], {k, 1, z}] (*A247784*)

d = Differences[t]

Flatten[Position[d, 0]] (*A247785*)

Flatten[Position[d, 1]] (*A247786*)

Cf. A247778, A247784, A247785.

Sequence in context: A005848 A187885 A039065 * A330565 A139711 A214585

Adjacent sequences: A247783 A247784 A247785 * A247787 A247788 A247789

nonn,easy

Clark Kimberling, Sep 24 2014

approved