|
Search: id:A074762
|
|
|
| A074762 |
|
Fifth root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros). |
|
+0
5
|
|
| 633, 634, 635, 636, 637, 638, 639, 877, 878, 879, 880, 881, 882, 883, 884, 1185, 5061, 33459, 438240, 682290, 17263489
(list; graph; listen)
|
|
|
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: A139066 A006913 A154088 this_sequence A112137 A061623 A043483
Adjacent sequences: A074759 A074760 A074761 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
