%I A023966
%S A023966 0,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,
%T A023966 6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,
%U A023966 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9,9,9,9,9
%N A023966 First digit after decimal point of 7-th root of n.
%t A023966 Array[ Function[ n, RealDigits[ N[ Power[ n, 1/7 ], 10 ], 10 ]// (#[ 
               [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
%Y A023966 Sequence in context: A131343 A089051 A108229 this_sequence A088141 A083291 
               A003056
%Y A023966 Adjacent sequences: A023963 A023964 A023965 this_sequence A023967 A023968 
               A023969
%K A023966 nonn,base
%O A023966 1,4
%A A023966 N. J. A. Sloane (njas(AT)research.att.com), Olivier Gerard (olivier.gerard(AT)gmail.com)