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,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

Cf. A061397, A103164, A143545.

Sequence in context: A257853 A070492 A070711 * A056555 A070491 A070490

Adjacent sequences: A282459 A282460 A282461 * A282463 A282464 A282465

Keyword

nonn,easy

Author

Vincenzo Librandi, Feb 17 2017

Status

approved