1,3

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

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

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

Cf. A247784, A249244, A249245.

Sequence in context: A076538 A138466 A247784 * A066530 A074183 A039960

Adjacent sequences: A249240 A249241 A249242 * A249244 A249245 A249246

nonn,easy

Clark Kimberling, Oct 23 2014

approved