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

Author

Labos Elemer, Jun 17 2004

Keywords

• nonn

Programs

Mathematica

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

Formula

a(n) = A059921(n) - A095394(n).