A094498 Least prime factor of 2^(4*n) + 3^(4*n) = 16^n + 81^n.
97, 17, 97, 3041, 41, 17, 97, 1153, 97, 17, 89, 193, 97, 17, 41, 769, 97, 17, 97, 3041, 97, 17, 97, 1153, 41, 17, 97, 3041, 97, 17, 97, 257, 89, 17, 41, 193, 97, 17, 97, 1153, 97, 17, 97, 353, 41, 17, 97, 769, 97, 17
Offset: 1
Keywords
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..255
Programs
-
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 *)
-
PARI
a(n) = vecmin(factor(16^n + 81^n)[,1]); \\ Michel Marcus, Oct 15 2019
Extensions
More terms from Harvey P. Dale, Jun 02 2014
Name corrected by Chai Wah Wu, Oct 14 2019