A110882 a(n) is the least integer x such that x^n < 2 * (x-1)^n.

1, 3, 4, 5, 7, 8, 10, 11, 13, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 28, 30, 31, 33, 34, 36, 37, 39, 40, 41, 43, 44, 46, 47, 49, 50, 51, 53, 54, 56, 57, 59, 60, 62, 63, 64, 66, 67, 69, 70, 72, 73, 75, 76, 77, 79, 80, 82, 83, 85, 86, 88, 89, 90, 92, 93, 95, 96, 98, 99, 101, 102

Offset

0,2

Comments

Similar to the Beatty sequence for 1/log(2).

Links

Table of n, a(n) for n=0..70.

Example

a(9) = 14 because 14^9 < 2 * 13^9.

Mathematica

{1}~Join~Table[SelectFirst[Range[10^3], #^n < 2 (# - 1)^n &], {n, 70}] (* Michael De Vlieger, May 01 2016, Version 10 *)

Crossrefs

Equals A078607(n)+1 for n > 0.

Sequence in context: A116591 A136119 A184618 * A186499 A187911 A089230

Adjacent sequences: A110879 A110880 A110881 * A110883 A110884 A110885

Keyword

nonn

Author

Ken Tozier (kentozier(AT)comcast.net), Oct 02 2005

Extensions

Edited by Don Reble, May 16 2006

Status

approved