login
a(n) = largest prime factor of 7^n-1.
12

%I #35 Sep 11 2022 12:48:41

%S 3,3,19,5,2801,43,4733,1201,1063,2801,293459,181,16148168401,4733,

%T 159871,169553,2767631689,117307,4534166740403,4021,11898664849,

%U 10746341,31479823396757,1201,31280679788951,16148168401,2583253

%N a(n) = largest prime factor of 7^n-1.

%H <a href="/A074249/b074249.txt">Table of n, a(n) for n = 1..388</a>

%F a(n) = A006530(A024075(n)). - _Michel Marcus_, Dec 16 2017

%t Join[{1}, Table[FactorInteger[7^n - 1] [[-1, 1]], {n, 30}]] (* _Vincenzo Librandi_, Aug 23 2012 *)

%o (PARI) a(n) = vecmax(factor(7^n-1)[,1]); \\ _Michel Marcus_, Dec 16 2017

%Y Cf. A006530, A024075, A057954, A059889, A085032.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Sep 26 2002

%E More terms from _Benoit Cloitre_, Sep 29 2002

%E Terms to a(80) in b-file from _Vincenzo Librandi_, Aug 23 2013

%E a(81)-a(378) in b-file from _Amiram Eldar_, Feb 02 2020

%E a(0) removed and a(379)-a(388) in b-file added by _Max Alekseyev_, Apr 25 2022, Sep 11 2022