|
%I #13 Nov 19 2015 20:42:27
%S 1,4,4,4,7,0,9,5,0,1,9,7,0,4,3,1,7,2,4,8,9,4,4,2,3,3,0,0,5,0,8,6,0,7,
%T 9,1,4,7,7,5,6,0,3,8,4,6,5,9,4,7,0,8,8,6,4,5,4,8,0,1,9,7,9,3,4,7,0,7,
%U 5,7,6,6,4,5,2,0,2,0,2,8,6,4,7,2,9,7,5,9,2,1,0,5,0,4,0,5,3,0,9,6,9,5
%N n-th digit in the decimal expansion of the n-th root of n.
%H Vincenzo Librandi, <a href="/A023958/b023958.txt">Table of n, a(n) for n = 1..1000</a>
%p a:= proc(n) Digits:= 20+n;
%p parse(convert(evalf(root(n, n)/10), string)[n+1])
%p end:
%p seq(a(n), n=1..120); # _Alois P. Heinz_, Nov 19 2015
%t Array[ Function[ n, RealDigits[ N[ Power[ n, 1/n ], n+6 ] ]// (#[ [ 1, n ] ])& ], 110 ]
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_, _Olivier Gérard_
|
