%I #18 Oct 15 2019 17:24:04

%S 97,17,97,3041,41,17,97,1153,97,17,89,193,97,17,41,769,97,17,97,3041,

%T 97,17,97,1153,41,17,97,3041,97,17,97,257,89,17,41,193,97,17,97,1153,

%U 97,17,97,353,41,17,97,769,97,17

%N Least prime factor of 2^(4*n) + 3^(4*n) = 16^n + 81^n.

%H Chai Wah Wu, <a href="/A094498/b094498.txt">Table of n, a(n) for n = 1..255</a>

%t mif[x_]:=Part[Flatten[FactorInteger[x]], 1] Table[mif[16^w+81^w], {w, 1, 20}]

%t Table[FactorInteger[16^n+81^n][[1,1]],{n,50}] (* _Harvey P. Dale_, Jun 02 2014 *)

%o (PARI) a(n) = vecmin(factor(16^n + 81^n)[,1]); \\ _Michel Marcus_, Oct 15 2019

%Y Cf. A082101, A094474-A094494.

%K nonn

%O 1,1

%A _Labos Elemer_, Jun 02 2004

%E More terms from _Harvey P. Dale_, Jun 02 2014

%E Name corrected by _Chai Wah Wu_, Oct 14 2019