%I
%S 2,4,12,14,20,42,48,56,60,88,104,120,126,134,138,160,164,182,186,204,
%T 226,254,270,276,312,316,330,336,350,382,408,410,414,422,438,448,450,
%U 480,492,494,502,522,546,568,580,596,620,624,640,650,690,696
%N Numbers n such that prime(n^2)  n^2 is prime.
%e 88 is in the sequence because prime(88^2)  88^2 = prime(7744)  7744 = 78977  7744 = 71233 = prime(7051).
%t Select[Range[700],PrimeQ[Prime[#^2]#^2]&] (* _Harvey P. Dale_, Jun 20 2015 *)
%o (PARI) isok(n) = isprime(prime(n^2)  n^2); \\ _Michel Marcus_, Oct 09 2013
%Y Cf. A064269 (prime(n)n is prime), A141129 (prime(n^2)n^2).
%K nonn
%O 1,1
%A _Zak Seidov_, May 20 2005
%E More terms from _Michel Marcus_, Oct 09 2013
