%I
%S 2,30,38,44,74,82,88,96,106,114,132,138,140,160,162,184,230,276,278,
%T 280,298,304,316,318,332,342,414,420,428,450,470,480,540,580,584,600,
%U 638,668,672,678,680,684,728,750,754,766,768,788,798,848,858,860,902,930
%N Numbers n such that prime(n^2)n is prime.
%t Select[Range[1000], PrimeQ[Prime[ #^2]  # ] &]
%Y Cf. A064269 = prime(n)n is prime.
%K nonn
%O 1,1
%A _Tanya Khovanova_, Dec 26 2006
