OFFSET
1,1
MATHEMATICA
s = Union[Table[EulerPhi[n], {n, 2000}]]; t = Union[Select[Table[ Cyclotomic[ n, 2], {n, s}], PrimeQ]]; Select[t, # < 10^30 &]
PROG
(PARI)
s=Set([]);
for (n=1, 10^3, my(a=polcyclo(eulerphi(n), 2)); if(ispseudoprime(a), s=setunion(s, [a])));
v211876=s /* Joerg Arndt, Apr 13 2013 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Gruber, Feb 12 2013
STATUS
approved