A247783 -id:A247783 - cp's OEIS frontend

A247781 Least k such that 1/e - (1 - 1/k)^k < 1/n.

1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15

Offset: 1

Clark Kimberling, Sep 24 2014

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

			The values of 1/e - (1 - 1/k)^k for n = 1..9 are approximately 0.367879, 0.117879, 0.0715831, 0.0514732, 0.0401994, 0.0329815, 0.0279628, 0.0242705, 0.02144, from which we see that the first 9 terms of A247781 are 1, 1, 2, 2, 2, 2, 2, 2, 3.

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

Cf. A247782, A247783, A247778.

z = 400; f[n_] := f[n] = Select[Range[z], 1/E - (1 - 1/#)^# < 1/n &, 1];
u = Flatten[Table[f[n], {n, 1, z}]] (*A247781*)
d1 = Flatten[Position[Differences[u], 0]] (*A247782*)
d2 = Flatten[Position[Differences[u], 1]] (*A247783*)

A247782 Numbers k for which A247781(k+1) = A247781(k).

Original entry on oeis.org

1, 3, 4, 5, 6, 7, 9, 10, 11, 12, 14, 15, 16, 17, 18, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 36, 37, 38, 39, 40, 42, 43, 44, 45, 47, 48, 49, 50, 51, 53, 54, 55, 56, 58, 59, 60, 61, 63, 64, 65, 66, 67, 69, 70, 71, 72, 74, 75, 76, 77, 78, 80, 81

Offset: 1

Clark Kimberling, Sep 24 2014

Every positive integer is in exactly one of the sequences A247782 and A247783.

			The values of 1/e - (1 - 1/k)^k for n = 1..9 are approximately
0.367879, 0.117879, 0.0715831, 0.0514732, 0.0401994, 0.0329815, 0.0279628, 0.0242705, 0.02144, from which we see that the first 9 terms of A247781 are 1,1,2,2,2,2,2,2,3, so that the first six terms of A247782 are 1,3,4,5,6,7.

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

Cf. A247781, A247783, A247788.

z = 400; f[n_] := f[n] = Select[Range[z], 1/E - (1 - 1/#)^# < 1/n &, 1];
u = Flatten[Table[f[n], {n, 1, z}]] (*A247781*)
d1 = Flatten[Position[Differences[u], 0]] (*A247782*)
d2 = Flatten[Position[Differences[u], 1]] (*A247783*)

cp's OEIS Frontend

A247781 Least k such that 1/e - (1 - 1/k)^k < 1/n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica