%I #18 Jan 12 2025 17:36:35
%S 0,1,0,2,0,2,0,2,2,3,0,4,0,3,3,5,0,5,0,5,3,3,0,8,2,4,3,7,0,10,0,7,4,5,
%T 4,13,0,5,4,12,0,11,0,9,7,6,0,15,1,9,5,10,0,14,4,14,6,8,0,22,0,6,9,13,
%U 5,16,0,11,5,15,0,24,0,9,9,13,3,18,0,20,8
%N Number of primes between sigma(n) and n inclusive.
%H Antti Karttunen, <a href="/A085341/b085341.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = pi(sigma(n)) - pi(n) = A000720(A000203(n)) - A000720(n).
%e n = 12: sigma(n) = 28, pi(28) - pi(12) = 9 - 5 = 4.
%t Table[PrimePi[DivisorSigma[1,n]]-PrimePi[n],{n,90}] (* _Harvey P. Dale_, Aug 18 2015 *)
%o (PARI) a(n) = primepi(sigma(n)) - primepi(n); \\ _Michel Marcus_, Dec 15 2013
%Y Cf. A000720, A000203, A070803, A070804, A085342-A085347.
%K nonn
%O 1,4
%A _Labos Elemer_, Jul 10 2003