|
%I #5 Jan 28 2023 19:15:48
%S 2,3,2,1,9,4,2,5,3,1,14,27,5,1,1,3,5,2,1,7,2,1,4,1,10,5,56,2,1,3,36,3,
%T 1,3,9,7,8,8,1,4,1,2,60,1,1,684,2,11,1,1,2,1,2,4,2,7,5,9,1,3,5,5,1,14,
%U 3,1,1,9,1,3,5,8,30,1,2,2,3,1,1,1,5,3,2,23,2,1,31,1,2,1,1,7,1,1,3,1,1,5,6
%N a(n) = n-th term of the continued fraction for the n-th root of n.
%t Table[ContinuedFraction[Surd[n,n],n+25][[n]],{n,2,100}] (* _Harvey P. Dale_, Jan 28 2023 *)
%o (PARI) f(n) = for(x=2,n,a=contfrac(x^(1/x));print1(a[x]","))
%K nonn
%O 2,1
%A _Cino Hilliard_, Dec 15 2003
|
