%I
%S 0,1,8,27,4,125,6,343,8,9,10,1331,12,2197,14,15,16,4913,18,6859,20,21,
%T 22,12167,24,25,26,27,28,24389,30,29791,32,33,34,35,36,50653,38,39,40,
%U 68921,42,79507,44,45,46,103823,48,49,50,51,52,148877,54,55,56
%N Integers but with the primes cubed.
%H Vincenzo Librandi, <a href="/A282462/b282462.txt">Table of n, a(n) for n = 0..2000</a>
%e a(4) = 4 because 4 is composite.
%e a(5) = 125 because 5 is prime and 5^3 = 125.
%t Join[{0},If[PrimeQ@#,#^3,#]&/@Range@80]
%o (MAGMA) [0] cat [IsPrime(n) select n^3 else n: n in [1..60]];
%Y Cf. A061397, A103164, A143545.
%K nonn,easy
%O 0,3
%A _Vincenzo Librandi_, Feb 17 2017
