A097989 Numbers n such that n=tau_3(n)=A007425(n).
1, 3, 18, 36
Offset: 1
References
- J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 36, pp 14, Ellipses, Paris 2008.
- J.-M. De Koninck & A. Mercier, 1001 Problemes en Theorie Classique Des Nombres, Problem 712 pp. 93;305 Ellipses Paris 2004.
Programs
-
Mathematica
Select[Range[10^5],Total[(DivisorSigma[0,#]&) /@ Divisors[#]] == #&](* Jean-François Alcover, Sep 14 2011 *)
Comments