%I #7 Dec 17 2017 03:13:58
%S 2,19,37,109,5167,46441,117307,87211,530713,52579,590077,1801,937,
%T 132049,811,38737,5653,465841,236377,69481,613,5966803,1117,7561,
%U 6597973,102966067,19927,102547,10435069,120871,1538083,18837001,221401,745903,612740917,55117
%N Greatest prime factor of n^9+1.
%H T. D. Noe, <a href="/A240552/b240552.txt">Table of n, a(n) for n = 1..10000</a>
%t Table[FactorInteger[n^9 + 1][[-1, 1]], {n, 100}]
%o (PARI) a(n) = vecmax(factor(n^9+1)[,1]); \\ _Michel Marcus_, Dec 17 2017
%Y Cf. A014442, A081256, A096172, A240548, A240549, A240550, A240551, A240553.
%K nonn
%O 1,1
%A _T. D. Noe_, Apr 07 2014
|