OFFSET
0,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 0..10000
EXAMPLE
a(0) = 9 because 9^9 = 387420489 has "0" as a substring;
a(1) = 1 because 1^1 = 1 has "1" as a substring;
a(2) = 3 because 3^3 = 27 has "2" as a substring;
a(3) = 5 because 5^5 = 3125 has "3" as a substring;
a(4) = 2 because 2^2 = 4 has "4" as a substring.
MATHEMATICA
a[n_] := (k = 1; While[ !MatchQ[ IntegerDigits[k^k], {___, Sequence @@ IntegerDigits[n], ___}], k++]; k); Table[a[n], {n, 0, 80}] (*program from Jean-Francois Alcover adapted for this sequence - see A030001 *)
snk[n_]:=Module[{k=1}, While[SequenceCount[IntegerDigits[k^k], IntegerDigits[ n]]<1, k++]; k]; Array[snk, 80, 0] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 09 2019 *)
PROG
(PARI) overlap(long, short)=my(D=10^#digits(short)); while(long>=short, if(long%D==short, return(1)); long\=10); 0
a(n)=my(k); while(!overlap(k++^k, n), ); k \\ Charles R Greathouse IV, Mar 11 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Mar 10 2014
STATUS
approved