A240552 Greatest prime factor of n^9+1.
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
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Table[FactorInteger[n^9 + 1][[-1, 1]], {n, 100}]
-
PARI
a(n) = vecmax(factor(n^9+1)[,1]); \\ Michel Marcus, Dec 17 2017