A108138 n to the power of the smallest prime divisor of n.

4, 27, 16, 3125, 36, 823543, 64, 729, 100, 285311670611, 144, 302875106592253, 196, 3375, 256, 827240261886336764177, 324, 1978419655660313589123979, 400, 9261, 484, 20880467999847912034355032910567, 576, 9765625, 676, 19683, 784

Offset

2,1

Links

Harvey P. Dale, Table of n, a(n) for n = 2..300

Mathematica

Table[n^FactorInteger[n][[1, 1]], {n, 2, 30}] (* Harvey P. Dale, Dec 04 2012 *)

Prog

(PARI) xtosdiv(n) = \x to the power of smallest prime divisor of x <= n { local(z); for(x=2, n, y=Vec(factor(x)); z=x^y[1][1]; print1(z", ") ) }

Crossrefs

Sequence in context: A094543 A136511 A218362 * A119361 A133482 A108139

Adjacent sequences: A108135 A108136 A108137 * A108139 A108140 A108141

Keyword

easy,nonn

Author

Cino Hilliard, Jun 05 2005

Status

approved