|
|
A094498
|
|
Least prime factor of 2^(4*n) + 3^(4*n) = 16^n + 81^n.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|