login
A070520
Prime numbers of form p=Cyclotomic(n,n).
4
3, 13, 17, 31, 9091, 20593, 7027567, 109912203092239643840221, 568972471024107865287021434301977158534824481, 3726767253346131780312487317315864271, 19342489361037647362917398912701853907582504971824424988419390687587
OFFSET
1,1
MATHEMATICA
Do[s=Cyclotomic[n, n]; If[PrimeQ[s], Print[s]], {n, 2, 256}]; output = the prime value
Select[Table[Cyclotomic[n, n], {n, 300}], PrimeQ] (* Harvey P. Dale, Dec 06 2012 *)
CROSSREFS
Sequence in context: A356054 A045434 A166567 * A018579 A006486 A368709
KEYWORD
nonn
AUTHOR
Labos Elemer, May 02 2002
STATUS
approved