OFFSET
1,2
LINKS
FORMULA
MATHEMATICA
{1}~Join~Array[Apply[Times, Map[NextPrime[#1]^#2 & @@ # &, FactorInteger[#]] ]^2 &, 53, 2] (* Michael De Vlieger, Dec 27 2024 *)
PROG
(PARI) A379481(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1); f[i, 2] *= 2); factorback(f); };
CROSSREFS
KEYWORD
nonn,easy,mult
AUTHOR
Antti Karttunen, Dec 27 2024
STATUS
approved