|
| |
|
|
A096257
|
|
The least k whose n-th root contains k as a string of digits to the immediate right of the decimal point (excluding leading zeros).
|
|
0
| |
|
|
8, 2, 3, 633, 19703, 89, 69, 56, 46, 39, 33, 29, 25, 22, 20, 18, 16, 14, 13, 12, 11, 10, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 138, 133, 128, 124, 120, 116, 113, 109, 106, 103, 100, 97, 95, 92, 90, 87, 85, 83, 81, 79, 77, 75, 74, 72, 70, 69, 67, 66, 65, 63, 62, 61, 59, 58, 57
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
MATHEMATICA
| f[k_, n_] := Block[{l = Floor[ Log[10, k] + 1], rd = RealDigits[ k^(1/n), 10, 24], id = IntegerDigits[k]}, rdd = Drop[ rd[[1]], rd[[2]]]; While[ rdd[[1]] == 0, rdd = Drop[rdd, 1]]; Take[rdd, l] == id]; g[n_] := Block[{k = 2}, While[IntegerQ[k^(1/n)] || f[k, n] == False, k++ ]; k]; Table[ g[n], {n, 2, 72}]
|
|
|
CROSSREFS
| Cf. A074841, A074762.
Sequence in context: A140244 A160105 A167162 * A125578 A083729 A019775
Adjacent sequences: A096254 A096255 A096256 * A096258 A096259 A096260
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Paul Lusch (plusch(AT)flash.net) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 31 2004
|
| |
|
|
