OFFSET
1,2
COMMENTS
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A248601(3, n) for any n > 0.
MATHEMATICA
Array[Times @@ Map[Power @@ # &, FactorInteger[#] /. {p_, e_} /; p > 1 :> {Prime[2 PrimePi@ p], e}] &, 57] (* Michael De Vlieger, Dec 23 2017 *)
PROG
(PARI) a(n) = my (f=factor(n)); prod(i=1, #f~, prime(2 * primepi(f[i, 1]))^f[i, 2])
CROSSREFS
KEYWORD
easy,nonn,mult
AUTHOR
Rémy Sigrist, Dec 23 2017
EXTENSIONS
Comment corrected by Rémy Sigrist, Sep 22 2018
STATUS
approved