This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A073456 #10 Oct 23 2024 18:10:48
%S A073456 1,5,36,48,84
%N A073456 Numbers n such that phi(n) = pi(n)+1.
%F A073456 Solutions to A000010(x)=A000720(x)+k, where k=+1; finite for any fixed value of k.
%e A073456 15 primes below 48 = {2,3,5,7,11,13,17,19,23,29,31,37,41,43,47}; 16 terms in RRS[48]={1,5,7,11,13,17,19,23,25,29,31,35,37,41,43,47}, so 48 is here.
%t A073456 Do[s=EulerPhi[n]-PrimePi[n]; If[Equal[s, 1], Print[n]], {n, 1, 10000}]
%t A073456 Select[Range[100],EulerPhi[#]==PrimePi[#]+1&] (* _Harvey P. Dale_, Oct 23 2024 *)
%Y A073456 Cf. A037228, A037171, A000010, A000720, A073455.
%K A073456 fini,full,nonn
%O A073456 1,2
%A A073456 _Labos Elemer_, Aug 02 2002
%E A073456 Definition modified by _Harvey P. Dale_, Oct 23 2024