|
|
A240552
|
|
Greatest prime factor of n^9+1.
|
|
3
|
|
|
2, 19, 37, 109, 5167, 46441, 117307, 87211, 530713, 52579, 590077, 1801, 937, 132049, 811, 38737, 5653, 465841, 236377, 69481, 613, 5966803, 1117, 7561, 6597973, 102966067, 19927, 102547, 10435069, 120871, 1538083, 18837001, 221401, 745903, 612740917, 55117
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[FactorInteger[n^9 + 1][[-1, 1]], {n, 100}]
|
|
PROG
|
(PARI) a(n) = vecmax(factor(n^9+1)[, 1]); \\ Michel Marcus, Dec 17 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|