A173616 The first n digits of Reverse(A002275(n)^A002275(n))

1, 11, 117, 1178, 11787, 117870, 1178701, 11787019, 117870197, 1178701972, 11787019723, 117870197230, 1178701972308, 11787019723085, 117870197230855, 1178701972308551, 11787019723085519, 117870197230855196, 1178701972308551965, 11787019723085519654

Offset

1,2

Comments

0 <= a(n)-10*a(n-1)<10

All terms are prefixes of later terms.

Links

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

Example

reverse(11^11)=116076113582 =>a(2)=11 reverse(111^111)=117...... =>a(3)=117 reverse(1111^111)=1178....=>a(4)=1178

Mathematica

repunit[n_] := Sum[10^i, {i, 0, n - 1}]; a[n_]:= FromDigits[Reverse[IntegerDigits[repunit[n]^repunit[n]]][[1 ;; n]]]; Table[a[n], {n, 1, 7}]
repunit[n_] := Sum[10^i, {i, 0, n - 1}]; h[n_] := If[(b = (1 +Floor@Log[10, aux = FromDigits@Reverse@IntegerDigits@PowerMod[repunit[n], repunit[n], 10^n]])) < n, aux*10^(n - b), aux] (*Suggested by Jorge Jimenez Meana*) [From José María Grau Ribas, Mar 01 2010]

Crossrefs

Sequence in context: A287838 A271477 A076554 * A287839 A268344 A289344

Adjacent sequences: A173613 A173614 A173615 * A173617 A173618 A173619

Keyword

base,easy,nonn

Author

José María Grau Ribas, Feb 22 2010

Status

approved