|
%I #11 Feb 21 2013 15:06:18
%S 2,7,61,73,6481,530713,42521761,47763361,23535794707,282429005041,
%T 374857981681,150094634909578633,13490012358249728401,
%U 105919308797935444986721,1076050302914923449767311155851656076154481
%N Primes of the form Phi(phi(k),3), the phi(k)-th Cyclotomic polynomial evaluated at 3, where phi is the Euler totient function.
%t Union[Select[Cyclotomic[EulerPhi[#], x] /. x -> 3 & /@ Range[1000], PrimeQ]]
%K nonn
%O 1,1
%A _Alexander Gruber_, Feb 12 2013
|
