%I
%S 2,4,12,30,40,42,62,66,70,72,84,88,98,112,130,150,180,248,264,298,336,
%T 342,354,408,438,450,468,482,486,546,550,558
%N Numbers k such that prime(k^3)  k is prime.
%e a(1)=2 because prime(2^3)2 = 192 = 17 and 17 is prime,
%e a(2)=4 because prime(4^3)4 = 3114 = 307 and 307 is prime,
%e a(3)=12 because prime(12^3)12 = 14741 and 14741 is prime, ...
%p ts_pra_3:=proc(n) local i,ans; ans := [ ]: for i from 1 to n do if (isprime(ithprime(i^(3))i)) then ans := [ op(ans), i ]: fi: od; RETURN(ans) end: ts_pra_3(200);
%o (PARI) is(k) = isprime(prime(k^3)k); \\ _Jinyuan Wang_, Apr 10 2020
%Y Cf. A064269 (prime(k)  k is prime), A105962 (prime(k^2)  k is prime).
%K nonn,more,less
%O 1,1
%A _Jani Melik_, Aug 01 2007
%E a(18)a(32) from _Jinyuan Wang_, Apr 10 2020
