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
A232110
Fourth 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
3, 4, 27, 1913227, 9821998, 3588613885932, 7625632704605, 50859949338383, 21029300554772499, 97202454420912990, 440023525444970228, 783944985766933369, 1277151495727998611, 2283977463662240937, 72927208535053310211, 365439872472838714161, 740751647624914930138
Offset: 1
1913227^(1/4) = 37.19132279207...
-
isok(n) = {if (ispower(n, 4), return (0)); fr = frac(n^(1/4)); while (frac(fr) < 1/10, fr *= 10); nd = length(digits(n)); fr *= 10^nd; floor(fr) == n;} \\ Michel Marcus, Nov 20 2013
-
/*Sample Run Using a = [0,14], b=10, p=4 using PARI code in link */
GetAllGIs(0,14,10,4,1)
Showing 1-3 of 3 results.
Comments