OFFSET
1,1
FORMULA
2 / d(2) = 2 / 2 = 1 but 2^2 / d(2^2) = 4 / 3;
60 / d(60) = 60 / 12 = 5, 60^2 / d (60^2) = 3600 / 45 = 80 but 60^3 / d(60^3) = 216000 / 112 = 13500 / 7.
MAPLE
with(numtheory): P:= proc(q) local a, j, k, ok, n, p; a:=2;
for k from 1 to q do for n from a to q do ok:=1;
for j from 1 to k do if not type(n^j/tau(n^j), integer) then ok:=0; break; fi; od;
if ok=1 then a:=n; print(n); break; fi; od; od; end: P(10^9);
MATHEMATICA
Table[SelectFirst[Range[2, 2*10^6], AllTrue[#^Range@ n, Divisible[#, DivisorSigma[0, #]] &] &], {n, 5}] (* Michael De Vlieger, May 12 2016, Version 10 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, May 12 2016
EXTENSIONS
a(6)-a(14) from Giovanni Resta, May 12 2016
STATUS
approved