A070520 Prime numbers of form p=Cyclotomic(n,n).

3, 13, 17, 31, 9091, 20593, 7027567, 109912203092239643840221, 568972471024107865287021434301977158534824481, 3726767253346131780312487317315864271, 19342489361037647362917398912701853907582504971824424988419390687587

Offset: 1

Author

Labos Elemer, May 02 2002

Keywords

• nonn

Crossrefs

Cf. A070518, A070519.

Programs

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 *)