OFFSET
1,2
COMMENTS
Though a large number of initial terms match, this sequence is different from A069799. Example: a(1500) = a(2^2*3*5^3) = 5^3*3^2*2 = 2250, whereas A069799(1500) = 5^2*3*2^3 = 600.
The first term that is different from A069799 is a(18). - Ivan Neretin, Jul 29 2015
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) >= n. - Michel Marcus, Jul 30 2015
EXAMPLE
20 = 2^2*5, hence a(20) = 5^2*2 = 50.
MATHEMATICA
Table[Times @@ ((ar = Transpose[FactorInteger[n]])[[1]]^Sort[ar[[2]]]), {n, 70}] (* Ivan Neretin, Jul 29 2015*)
fise[n_]:=Module[{fi=FactorInteger[n]}, Times@@(fi[[All, 1]]^Sort[ fi[ [All, 2]]])]; Array[fise, 100] (* Harvey P. Dale, Sep 18 2017 *)
PROG
(Haskell)
import Data.List (sort)
a085079 n = product $ zipWith (^) (a027748_row n) (sort $ a124010_row n)
-- Reinhard Zumkeller, Apr 27 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 01 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Aug 17 2003
STATUS
approved