A088378 a(n) = (smallest prime factor of n)^3; a(1) = 1.

1, 8, 27, 8, 125, 8, 343, 8, 27, 8, 1331, 8, 2197, 8, 27, 8, 4913, 8, 6859, 8, 27, 8, 12167, 8, 125, 8, 27, 8, 24389, 8, 29791, 8, 27, 8, 125, 8, 50653, 8, 27, 8, 68921, 8, 79507, 8, 27, 8, 103823, 8, 343, 8, 27, 8, 148877, 8, 125, 8, 27, 8, 205379, 8, 226981

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Eric Weisstein's World of Mathematics, Cubic Number.

Eric Weisstein's World of Mathematics, Least Prime Factor.

Formula

a(n) = A000578(A020639(n)).

Mathematica

Table[FactorInteger[n][[1, 1]]^3, {n, 70}] (* Harvey P. Dale, Aug 05 2019 *)

Prog

(PARI) a(n) = if(n == 1, 1, factor(n)[1, 1]^3); \\ Amiram Eldar, May 16 2025

Crossrefs

Cf. A020639, A000578, A088377, A088379.

Sequence in context: A056555 A070491 A070490 * A005064 A056551 A356193

Adjacent sequences: A088375 A088376 A088377 * A088379 A088380 A088381

Keyword

nonn,easy

Author

Reinhard Zumkeller, Sep 28 2003

Status

approved