|
| |
|
|
A074762
|
|
Fifth root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).
|
|
8
|
|
|
|
633, 634, 635, 636, 637, 638, 639, 877, 878, 879, 880, 881, 882, 883, 884, 1185, 5061, 33459, 438240, 682290, 17263489, 188423892, 991790057, 7231603790, 75314706735, 62651040995719, 296757769625554, 4295141978111813, 14929328605861651, 516659008545595106
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Jon E. Schoenfield, Table of n, a(n) for n = 1..50
Jon E. Schoenfield, Magma code
Robert Tanniru, PARI Code
|
|
|
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}] (* Robert G. Wilson v, Jul 30 2004 *)
|
|
|
PROG
|
(PARI)
/* Uses PARI functions provided in link
* Note: does not predict 639 due to simplification error and
* 877-884 due to checking only first solutions to the Grafting Equation.
* Sample run uses a = [0, 16], b=10, p=5, direct=True */
GetAllGIs(0, 16, 10, 5, 1) \\ Robert Tanniru, Nov 20 2013
|
|
|
CROSSREFS
|
Cf. A074841, A232086, A232110.
Sequence in context: A154088 A321639 A185483 * A177684 A177214 A252124
Adjacent sequences: A074759 A074760 A074761 * A074763 A074764 A074765
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Paul Lusch, Sep 06 2002
|
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v, Jul 31 2004
a(22)-a(25) by Robert Tanniru, Nov 20 2013
More terms from Jon E. Schoenfield, Aug 17 2014
|
|
|
STATUS
|
approved
|
| |
|
|
