%I A074762
%S A074762 633,634,635,636,637,638,639,877,878,879,880,881,882,883,884,1185,5061,
%T A074762 33459,438240,682290,17263489
%N A074762 Fifth root of n contains n as a string of digits to the immediate right 
               of the decimal point (excluding leading zeros).
%e A074762 Fifth root of 33459 = 8.033459...
%t A074762 f[n_] := Block[{l = Floor[ Log[10, n] + 1], rd = RealDigits[n^(1/5), 
               10, 24], id = IntegerDigits[n]}, rdd = Drop[ rd[[1]], rd[[2]]]; While[ 
               rdd[[1]] == 0, rdd = Drop[ rdd, 1]]; Take[ rdd, l] == id]; Do[ If[ 
               StringPosition[ ToString[ N[ n^(1/5), 24]], ToString[ n]] != {}, 
               If[ f[n], Print[ n]]], {n, 2, 170000000}] (from Robert G. Wilson 
               v Jul 30 2004)
%Y A074762 Cf. A074841.
%Y A074762 Sequence in context: A139066 A006913 A154088 this_sequence A112137 A061623 
               A043483
%Y A074762 Adjacent sequences: A074759 A074760 A074761 this_sequence A074763 A074764 
               A074765
%K A074762 nonn,base
%O A074762 1,1
%A A074762 Paul Lusch (plusch(AT)flash.net), Sep 06 2002
%E A074762 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 31 
               2004