OFFSET
1,6
FORMULA
EXAMPLE
The product of divisors of 16 that are < sqrt(16) = 4 is 1*2 = 2, so a(16) = 2.
MATHEMATICA
a[n_] := Times @@ Select[Divisors[n], #^2 < n &]; Array[a, 100]
PROG
(PARI) a(n) = vecprod(select(x->(x^2<n), divisors(n))); \\ Michel Marcus, Jun 08 2023
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Jun 07 2023
STATUS
approved