|
%I #4 Oct 15 2013 22:32:25
%S 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,
%T 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,
%U 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
%N a(n) = Floor[n^((n+1)/(n))]-Floor[n^((n)/(n+1))].
%F a[n]=A059921(n)-A095394(n)
%t Table[Floor[N[x^((x+1)/(x)), 50]]-Floor[N[x^((x)/(x+1)), 50]], {x, 1, 15}]
%K nonn
%O 1,3
%A _Labos Elemer_, Jun 17 2004
|
