OFFSET
1,2
COMMENTS
LINKS
F. Luca, On the product of divisors of n and sigma(n), J. Inequal. Pure Appl. Math., Volume 4, Issue 2, Article 46, 2003.
MATHEMATICA
Select[Range[1000000], Mod[Times @@ Divisors[#], Times @@ Divisors[DivisorSigma[1, #]]] == 0 &] (* T. D. Noe, Nov 19 2012 *)
PROG
(PARI) A007955(n)=if(issquare(n, &n), n^numdiv(n^2), n^(numdiv(n)/2))
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Nov 19 2012
STATUS
approved