OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..2000
EXAMPLE
a(4) = 4 because 4 is composite.
a(5) = 125 because 5 is prime and 5^3 = 125.
MATHEMATICA
Join[{0}, If[PrimeQ@#, #^3, #]&/@Range@80]
PROG
(Magma) [0] cat [IsPrime(n) select n^3 else n: n in [1..60]];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Feb 17 2017
STATUS
approved