|
%I
%S 1,2,16,48,6480,331776,26542080,207360000,174142586880,5476584960000,
%T 8352895346933760000,190741334440500264960000,
%U 40745645800296001044480000,11921333402531266560000000000000000
%N Number of proper divisors of n is a square and sets a new record for such squares.
%o (PARI) a=-1; for(n=1,10^7,x=numdiv(n)-1; if(issquare(x),b=x; if(b>a,a=b; print(n))))
%o (PARI) {a063721(m)=local(r,n,x); r=-1; for(n=1,m,x=numdiv(n)-1; if(issquare(x) && x>r,r=x; print1(n,","))) }
%Y Cf. A032741.
%K nonn
%O 1,2
%A _Jason Earls_, Aug 22 2001
%E More terms from _Don Reble_, May 12 2002
|
