|
|
A219363
|
|
Numbers such that the product of divisors of n is divisible by the product of divisors of sigma(n).
|
|
1
|
|
|
1, 37200, 86800, 170688, 260400, 334800, 2269200, 2343600, 2864400, 3385200, 4947600, 5291328, 5294800, 10155600, 11048400, 15884400, 18897600, 20422800, 30466800, 33070800, 44094400, 44528400, 61618368, 77338800, 91660800
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
F. Luca proved that this sequence is infinite.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|