1,1
Do[s=Cyclotomic[n, n]; If[PrimeQ[s], Print[s]], {n, 2, 256}]; output = the prime value
Cf. A070518, A070519.
Sequence in context: A045433 A045434 A166567 * A018579 A006486 A070518
Adjacent sequences: A070517 A070518 A070519 * A070521 A070522 A070523
nonn
Labos E. (labos(AT)ana.sote.hu), May 02 2002