Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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