A282462 Integers but with the primes cubed.
0, 1, 8, 27, 4, 125, 6, 343, 8, 9, 10, 1331, 12, 2197, 14, 15, 16, 4913, 18, 6859, 20, 21, 22, 12167, 24, 25, 26, 27, 28, 24389, 30, 29791, 32, 33, 34, 35, 36, 50653, 38, 39, 40, 68921, 42, 79507, 44, 45, 46, 103823, 48, 49, 50, 51, 52, 148877, 54, 55, 56
Offset: 0
Examples
a(4) = 4 because 4 is composite. a(5) = 125 because 5 is prime and 5^3 = 125.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..2000
Programs
-
Magma
[0] cat [IsPrime(n) select n^3 else n: n in [1..60]];
-
Mathematica
Join[{0},If[PrimeQ@#,#^3,#]&/@Range@80]