A070520 Prime numbers of form p=Cyclotomic[n,n].

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

Offset

1,1

Links

Table of n, a(n) for n=1..10.

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

Cf. A070518, A070519.

Sequence in context: A356054 A045434 A166567 * A018579 A006486 A368709

Adjacent sequences: A070517 A070518 A070519 * A070521 A070522 A070523

Keyword

nonn

Author

Labos Elemer, May 02 2002

Status

approved