|
|
A214812
|
|
Largest prime factor of (p^p-1)/(p-1) where p = prime(n).
|
|
6
|
|
|
3, 13, 71, 4733, 1806113, 1803647, 2699538733, 109912203092239643840221, 1920647391913, 549334763, 568972471024107865287021434301977158534824481, 41903425553544839998158239, 5926187589691497537793497756719, 19825223972382274003506149120708429799166030881820329892377241, 194707033016099228267068299180244011637
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
FactorInteger[#][[-1, 1]]&/@Table[(p^p-1)/(p-1), {p, Prime[Range[15]]}] (* Harvey P. Dale, Aug 27 2016 *)
|
|
PROG
|
(PARI) a(n) = my(p=prime(n)); vecmax(factor((p^p-1)/(p-1))[, 1]); \\ Daniel Suteu, May 26 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|