A273383 Numbers x = concat(a,b) such that a^b ends with the digits of x.

387, 656, 856, 1616, 72343, 72347, 72896, 76929, 499499, 548096, 690496, 961216, 1963179, 2948736, 8241841, 9489809, 17426176, 36821221, 80760576, 92745289, 275690496, 314453125, 377763067, 411728896, 668376576, 813998599, 895225856, 964089209, 2431189707

Offset

1,1

Links

Table of n, a(n) for n=1..29.

Example

The last digits of 3^87 are ...853387, so 387 is a term.

Mathematica

end[x_, y_, n_] := x>0 && y*Log[x] >= Log[n] && PowerMod[x, y, 10^ IntegerLength[ n]] == n; ok[n_] := Block[{p=1}, While[(p *= 10) < n &&
    ! end[Floor[n/p], Mod[n, p], n]]; p < n]; Select[Range[10^5], ok]

Crossrefs

Cf. A273382, A266817, A266818.

Sequence in context: A230274 A230475 A116329 * A038659 A232777 A259695

Adjacent sequences: A273380 A273381 A273382 * A273384 A273385 A273386

Keyword

nonn,base

Author

Giovanni Resta, Jun 06 2016

Status

approved