OFFSET
1,2
FORMULA
EXAMPLE
For n = 4; a(n) = product of divisors (1*2*4) = 1*2*4*8 = 64.
MATHEMATICA
Table[Nest[Times @@ Divisors@ # &, n, 2], {n, 19}] (* Michael De Vlieger, Jan 06 2017 *)
PROG
(Magma) [&*[d: d in Divisors(&*[d: d in Divisors(n)])]: n in [1..100]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 06 2017
STATUS
approved