A247786 Numbers k such that A247784(k+1) - A247784(k) = 1.

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, 35, 37, 38, 39, 41, 42, 43, 45, 46, 48, 49, 50, 52, 53, 54, 56, 57, 58, 60, 61, 62, 64, 65, 67, 68, 69, 71, 72, 73, 75, 76, 77, 79, 80, 81, 83, 84, 86, 87, 88, 90

Offset

1,2

Comments

A247785 and A247786 are a complementary pair.

Links

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

Mathematica

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*)

Crossrefs

Cf. A247778, A247784, A247785.

Sequence in context: A005848 A187885 A039065 * A330565 A139711 A354994

Adjacent sequences: A247783 A247784 A247785 * A247787 A247788 A247789

Keyword

nonn,easy

Author

Clark Kimberling, Sep 24 2014

Status

approved