%I #6 Jul 19 2015 01:27:42
%S 2,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,5,6,6,6,6,7,7,7,7,7,8,8,8,8,8,9,9,
%T 9,9,9,10,10,10,10,10,11,11,11,11,11,12,12,12,12,12,13,13,13,13,13,13,
%U 14,14,14,14,14,15,15,15,15,15,15,16,16,16,16,16,17,17,17,17,17,17,18,18
%N Second term in continued fraction for the n-th root of n.
%C The number of n's is: 5,4,4,5,4,5,5,5,5,5,5,6,5,6,5,6,6,5,6,6,6,6,...,
%t Table[ ContinuedFraction[n^(1/n), 2][[ -1]], {n, 2, 83}] (* _Robert G. Wilson v_, Dec 22 2003 *)
%o (PARI) f(n) = for(x=2,n,a=contfrac(x^(1/x));print1(a[2]","))
%K nonn
%O 2,1
%A _Cino Hilliard_, Dec 15 2003
|