|
| |
|
|
A074762
|
|
Fifth root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).
|
|
4
| |
|
|
633, 634, 635, 636, 637, 638, 639, 877, 878, 879, 880, 881, 882, 883, 884, 1185, 5061, 33459, 438240, 682290, 17263489
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| Fifth root of 33459 = 8.033459...
|
|
|
MATHEMATICA
| 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)
|
|
|
CROSSREFS
| Cf. A074841.
Sequence in context: A006913 A154088 A185483 * A177684 A177214 A112137
Adjacent sequences: A074759 A074760 A074761 * A074763 A074764 A074765
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Paul Lusch (plusch(AT)flash.net), Sep 06 2002
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 31 2004
|
| |
|
|
