OFFSET
1,2
COMMENTS
For n = prime see A061234.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..330 (first 44 terms from Amiram Eldar)
FORMULA
EXAMPLE
n = 6: a(6) = 1260 = 2*2*3*3*5*7 and d(1260) = 36.
MATHEMATICA
a[n_]:=(f=Flatten[Table@@@FactorInteger[n^2]]; Min[Times@@(Prime@Range@Length[s=Reverse@#-1]^s)&/@Union[Flatten[(ff=#; Union[Sort/@(Times@@@TakeList[ff, #]&/@Flatten[Permutations/@IntegerPartitions[Length@f], 1])])&/@Permutations@f, 1]]]); Array[a, 26] (* Giorgos Kalogeropoulos, Dec 10 2021 *)
PROG
(PARI) a(n) = {my(k = 1); while (numdiv(k) != n^2, k++); k; } \\ Michel Marcus, Sep 05 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 19 2001
EXTENSIONS
More terms from Don Reble, Nov 08 2001
Offset corrected by Hagen von Eitzen, Jun 05 2009
a(24)-a(26) from Ray Chandler, Jun 19 2009
STATUS
approved