OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
Michael De Vlieger, Log log scatterplot of a(n), n = 1..2^20.
FORMULA
EXAMPLE
Let S(n) = row n of A377485 = { p^k : p | n, p^k <= n, k > 0 }.
a(4) = 8 since S(4) = {2, 4} and the product of these is 8.
a(6) = 24 since S(6) = {2, 3, 4} and the product of these is 24.
a(12) = 1728 since S(12) = {2, 3, 4, 8, 9}, etc.
MATHEMATICA
{1}~Join~Table[Times @@ Flatten@ Map[#^Range[Floor@ Log[#, n]] &, FactorInteger[n][[All, 1]]], {n, 2, 120}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Oct 29 2024
STATUS
approved