A074841
Square root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).
Original entry on oeis.org
8, 77, 5711, 9797, 77327, 997997, 8053139, 60755907, 62996069, 99979997, 9999799997, 71515443427, 76933604839, 93445113269, 999997999997
Offset: 1
The square root of 77327 = 278.077327...
-
f[n_] := Block[{l = Floor[ Log[10, n] + 1], rd = RealDigits[ Sqrt[n], 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[ Sqrt[n], 24]], ToString[n]] != {}, If[ f[n], Print[n]]], {n, 2, 6 10^8}] (* Robert G. Wilson v, Aug 02 2004 *)
-
/* Uses PARI functions provided in link
* Sample run uses a = [0,12], b=10, p=2, direct=True */
GetAllGIs(0,12,10,2,1) \\ Robert Tanniru, Nov 20 2013
A074762
Fifth root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).
Original entry on oeis.org
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
Fifth root of 33459 = 8.033459...
-
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 *)
-
/* 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
A232086
Third root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).
Original entry on oeis.org
2, 39, 48570, 70293094, 97959170, 383263523, 7141269931, 52167799575, 54592884236, 80834974860, 3224757993012, 8391216236921, 174753523862043, 2248771925089484, 355191775894066192, 758148263300700696, 3004862096444523247, 9336508574693449683, 71580261944407825851
Offset: 1
97959170^(1/3) = 460.97959170151...
-
/* PARI functions provided in extra link. */
/* Sample Run Using a = [0,12], b=10, p=3 */
GetAllGIs(0,12,10,3,1)
Showing 1-3 of 3 results.
Comments