%I #11 Jul 05 2024 21:16:25
%S 3,13,17,31,9091,20593,7027567,109912203092239643840221,
%T 568972471024107865287021434301977158534824481,
%U 3726767253346131780312487317315864271,19342489361037647362917398912701853907582504971824424988419390687587
%N Prime numbers of form p=Cyclotomic(n,n).
%t Do[s=Cyclotomic[n, n]; If[PrimeQ[s], Print[s]], {n, 2, 256}]; output = the prime value
%t Select[Table[Cyclotomic[n,n],{n,300}],PrimeQ] (* _Harvey P. Dale_, Dec 06 2012 *)
%Y Cf. A070518, A070519.
%K nonn
%O 1,1
%A _Labos Elemer_, May 02 2002