OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
for n from 1 to 1000000 do
r := n/(numtheory[tau](n))^2 ;
if type(r, 'integer') then
printf("%d, ", r);
end if;
end do: # R. J. Mathar, Jun 07 2013
MATHEMATICA
Select[Table[n/DivisorSigma[0, n]^2, {n, 10^6}], IntegerQ] (* Harvey P. Dale, Jan 01 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Jun 04 2013
STATUS
approved