|
%I #13 Jun 14 2018 03:20:09
%S 0,8,6,2,4,4,5,3,7,0,3,4,9,6,0,0,1,5,3,7,6,0,6,0,6,0,1,6,3,6,5,5,9,7,
%T 9,1,1,7,9,9,8,0,2,5,5,9,6,1,4,5,1,9,1,7,9,2,2,6,3,4,5,5,0,9,8,2,0,6,
%U 8,2,0,1,3,3,9,5,7,2,6,2,0,9,7,0,0,4,3,5,5,2,8,8,0,3,3,7,5,2,8,1,1,4
%N n-th digit after decimal point of 4th root of n.
%H Robert Israel, <a href="/A029684/b029684.txt">Table of n, a(n) for n = 1..10000</a>
%p seq(floor(n^(1/4)*10^n) mod 10, n=1..200); # _Robert Israel_, Jun 14 2018
%t Array[ Function[ n, RealDigits[ N[ Power[ n, 1/4 ], n+6 ]]// (#[[ 1, #[[ 2 ]]+n ]])& ], 110 ]
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_, _Olivier Gérard_
|
