|
| |
|
|
A227575
|
|
Largest prime factor of 7^n + 1.
|
|
4
|
|
|
|
2, 2, 5, 43, 1201, 191, 181, 911, 169553, 117307, 4021, 10746341, 1201, 228511817, 13564461457, 6568801, 47072139617, 29078814248401, 13841169553, 4058036683, 810221830361, 309079, 83960385389, 3421093417510114543, 33232924804801, 79787519018560501
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 0..100
S. S. Wagstaff, Jr., The Cunningham Project
|
|
|
FORMULA
|
a(n) = A006530(A034491(n)). - Vincenzo Librandi, Jul 12 2016
|
|
|
EXAMPLE
|
7^12 + 1 = 2*73*193*409*1201, so a(12) = 1201.
|
|
|
MATHEMATICA
|
Table[FactorInteger[7^n + 1][[-1, 1]], {n, 0, 30}] (* Bruno Berselli, Aug 23 2013 *)
|
|
|
PROG
|
(PARI) a(n) = f = factor(7^n + 1); f[#f~, 1]; \\ Michel Marcus, Aug 22 2013
(MAGMA) [Maximum(PrimeDivisors(7^n+1)): n in [0..30]]; // Bruno Berselli, Aug 23 2013
|
|
|
CROSSREFS
|
Cf. A006530, A034491.
Cf. A002587, A074249, A074476, A074478.
Sequence in context: A301346 A020549 A196128 * A114715 A270750 A234703
Adjacent sequences: A227572 A227573 A227574 * A227576 A227577 A227578
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Michel Marcus, Aug 22 2013
|
|
|
STATUS
|
approved
|
| |
|
|
