A249245 -id:A249245 - cp's OEIS frontend

A249243 Floor(1/((1 + 1/n)^(n + 1)) - e).

0, 1, 2, 2, 3, 4, 5, 5, 6, 7, 8, 8, 9, 10, 11, 11, 12, 13, 14, 14, 15, 16, 16, 17, 18, 19, 19, 20, 21, 22, 22, 23, 24, 25, 25, 26, 27, 28, 28, 29, 30, 30, 31, 32, 33, 33, 34, 35, 36, 36, 37, 38, 39, 39, 40, 41, 41, 42, 43, 44, 44, 45, 46, 47, 47, 48, 49, 50

Offset: 1

Clark Kimberling, Oct 23 2014

a(n+1) - a(n) is in {0,1} for n >= 0.

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

Cf. A247784, A249244, A249245.

u = Floor[Table[1/((1 + 1/n)^(n + 1) - E), {n, 1, 1000}]]; (* A249243 *)
d = Differences[u]
Flatten[Position[d, 0]]  (* A249244 *)
Flatten[Position[d, 1]]  (* A249245 *)

A249244 Numbers k such that A249243(k+1) = A249243(k).

Original entry on oeis.org

3, 7, 11, 15, 19, 22, 26, 30, 34, 38, 41, 45, 49, 53, 56, 60, 64, 68, 72, 75, 79, 83, 87, 91, 94, 98, 102, 106, 109, 113, 117, 121, 125, 128, 132, 136, 140, 144, 147, 151, 155, 159, 162, 166, 170, 174, 178, 181, 185, 189, 193, 197, 200, 204, 208, 212, 215

Offset: 1

Clark Kimberling, Oct 23 2014

A249244 and A249245 are a complementary pair, analogous to the pair A247785 and A247786.

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

Cf. A247784, A247785, A249243, A249245.

u = Floor[Table[1/((1 + 1/n)^(n + 1) - E), {n, 1, 1000}]]; (* A249243 *)
d = Differences[u]
Flatten[Position[d, 0]]  (* A249244 *)
Flatten[Position[d, 1]]  (* A249245 *)

cp's OEIS Frontend

A249243 Floor(1/((1 + 1/n)^(n + 1)) - e).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica