OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..255
MATHEMATICA
mif[x_]:=Part[Flatten[FactorInteger[x]], 1] Table[mif[16^w+81^w], {w, 1, 20}]
Table[FactorInteger[16^n+81^n][[1, 1]], {n, 50}] (* Harvey P. Dale, Jun 02 2014 *)
PROG
(PARI) a(n) = vecmin(factor(16^n + 81^n)[, 1]); \\ Michel Marcus, Oct 15 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 02 2004
EXTENSIONS
More terms from Harvey P. Dale, Jun 02 2014
Name corrected by Chai Wah Wu, Oct 14 2019
STATUS
approved