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

Author

Paul Lusch, Sep 06 2002

Keywords

• nonn
• base

Examples

			Fifth root of 33459 = 8.033459...
		

Links

• Jon E. Schoenfield, Table of n, a(n) for n = 1..50
• Jon E. Schoenfield, Magma code
• Robert Tanniru, PARI Code

Crossrefs

Cf. A074841, A232086, A232110.

Programs

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 *)

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

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