A074762 Fifth root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).

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

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