login
A273383
Numbers x = concat(a,b) such that a^b ends with the digits of x.
3
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
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
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jun 06 2016
STATUS
approved