OFFSET
1,2
COMMENTS
For n = prime see A061234.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1288 (terms 1..44 from Amiram Eldar, terms 45..330 from David A. Corneth)
FORMULA
a(prime(n)) = A061234(n). - Bernard Schott, Jun 21 2019
a(n) = A005179(n^2). - Amiram Eldar, Feb 04 2025
EXAMPLE
For 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,changed
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