OFFSET
1,1
MATHEMATICA
Union[Select[Cyclotomic[EulerPhi[#], x] /. x -> 3 & /@ Range[1000], PrimeQ]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Gruber, Feb 12 2013
STATUS
approved