A095395 a(n) = Floor[n^((n+1)/(n))]-Floor[n^((n)/(n+1))].

0, 1, 2, 2, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9

Offset

1,3

Links

Table of n, a(n) for n=1..105.

Formula

a[n]=A059921(n)-A095394(n)

Mathematica

Table[Floor[N[x^((x+1)/(x)), 50]]-Floor[N[x^((x)/(x+1)), 50]], {x, 1, 15}]

Crossrefs

Sequence in context: A300404 A175214 A368700 * A029134 A303997 A276646

Adjacent sequences: A095392 A095393 A095394 * A095396 A095397 A095398

Keyword

nonn

Author

Labos Elemer, Jun 17 2004

Status

approved