OFFSET
1,2
COMMENTS
Values of k: {1, 1, 1, 1, 1, 1, 1, 4, 9, 9, 4, 5, 8, 9, 8, 9, 9, 9, 9, 9, 9, 9, 8, 9, 9, 16, 9, 12, 12, 12, 4, 32, 12, 9, 12, 32, 12, 13, 12, 12, 12, 12, 12, 12, 9, ...}. - Michael De Vlieger, Mar 17 2017
EXAMPLE
d(1052) + d(1052^2) + d(1052^3) + d(1052^4) + d(1052^5) + d(1052^6) + d(1052^7) + d(1052^8) = 524 = phi(1052).
MAPLE
with(numtheory): P:=proc(q) local a, k, n; for n from 1 to q do a:=0; k:=0; while a<phi(n) do k:=k+1; a:=a+tau(n^k); if phi(n)=a then print(n); break; fi; od; od; end: P(10^5);
MATHEMATICA
Select[Range@ 4000, Module[{k = 1, e = EulerPhi@ #, b}, While[Set[b, Sum[DivisorSigma[0, #^j], {j, k}]] < e, k++]; If[b == e, True, False]] &] (* Michael De Vlieger, Mar 17 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Mar 16 2017
STATUS
approved