OFFSET
1,2
LINKS
Robert P. P. McKone, Table of n, a(n) for n = 1..11
MATHEMATICA
A184391[n_] := Product[i, {i, 1, n^(DivisorSigma[0, n]/2)}]; Table[A184391[n], {n, 1, 9}] (* Robert P. P. McKone, Feb 04 2021 *)
PROG
(Python)
from math import isqrt, factorial
from sympy import divisor_count
def A184391(n): return factorial((isqrt(n) if (c:=divisor_count(n)) & 1 else 1)*n**(c//2)) # Chai Wah Wu, Jun 25 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 12 2011
EXTENSIONS
a(9) from Robert P. P. McKone, Feb 04 2021
STATUS
approved