A337840 a(n) is the decimal place of the start of the first occurrence of n in the decimal expansion of n^(1/n).

0, 4, 10, 1, 38, 6, 9, 4, 12, 17, 26, 0, 264, 144, 107, 101, 101, 4, 78, 68, 36, 86, 11, 17, 147, 151, 205, 50, 55, 26, 307, 88, 94, 180, 177, 61, 113, 244, 280, 37, 110, 38, 285, 101, 124, 223, 243, 25, 86, 116, 66, 77, 146, 283, 3, 60, 20, 82, 27, 146, 82, 140

Offset

1,2

Comments

Does a(n) exist for all n? Some relatively large values: a(1021) = 67714, a(1111) = 64946. - Chai Wah Wu, Oct 07 2020

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Example

For n = 1, 1^(1/1) = 1.0000000, so a(1) is 0.
For n = 12, 12^(1/12) ~= 1.2300755, so a(12) = 0.

Mathematica

max = 3000; a[n_] := SequencePosition[RealDigits[n^(1/n), 10, max][[1]], IntegerDigits[n]][[1, 1]] - 1; Array[a, 100] (* Amiram Eldar, Sep 25 2020 *)

Prog

(PARI) a(n) = {if (n==1, 0, my(p=10000); default(realprecision, p+1); my(x = floor(10^p*n^(1/n)), d = digits(x), nb = #Str(n)); for(k=1, #d-nb+1, my(v=vector(nb, i, d[k+i-1])); if (fromdigits(v) == n, return(k-1)); ); error("not found"); ); } \\ Michel Marcus, Sep 30 2020
(Python)
import gmpy2
from gmpy2 import mpfr, digits, root
gmpy2.get_context().precision=10**5
def A337840(n): # increase precision if -1 is returned
    return digits(root(mpfr(n), n))[0].find(str(n)) # Chai Wah Wu, Oct 07 2020

Crossrefs

Cf. A177715.

Decimal expansions of some n^(1/n): A002193, A002581, A005534, A011215, A011231, A011247, A011263, A011279, A011295, A011311, A011327, A011343, A011359.

Sequence in context: A016488 A087212 A048870 * A349305 A244152 A070261

Adjacent sequences: A337837 A337838 A337839 * A337841 A337842 A337843

Keyword

nonn,base

Author

William Phoenix Marcum, Sep 25 2020

Extensions

More terms from Amiram Eldar, Sep 25 2020

Status

approved