|
%I #6 Mar 30 2012 17:37:42
%S 2,8408,481044,189961452,75370122528,75370124832,4086199302976,
%T 221945984411264
%N Numbers n such that d(n)*pi(n)=n, where d(n) is the number of positive divisors of n.
%C Next term is greater than 3*10^9.
%e 189961452 is in the sequence because d(189961452)=18; pi(189961452)=10553414 & 18*10553414=189961452.
%t Do[If[DivisorSigma[0, n]*PrimePi[n] == n, Print[n]], {n, 2000000000}]
%Y Cf. A063903, A104905, A104906.
%K hard,more,nonn
%O 1,1
%A _Farideh Firoozbakht_, Apr 12 2005
%E a(5)-a(8) from _Donovan Johnson_, Dec 08 2009
|
