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 A084295 #27 May 14 2020 17:21:21
%S A084295 1,3,47,88,200,547,12182,15335,39104,58122,73282,150740,480886
%N A084295 n is such that pi(n*prime(n))/n is an integer.
%C A084295 a(9) > 30000. - _Michel Marcus_, Sep 02 2019
%C A084295 a(13) > 200000. - _Giovanni Resta_, Sep 02 2019
%t A084295 Do[s=PrimePi[n*Prime[n]]/n; If[IntegerQ[s], Print[n]], {n, 1, 100000}]
%t A084295 Select[Range[16000],IntegerQ[PrimePi[#*Prime[#]]/#]&] (* _Harvey P. Dale_, Jul 23 2015 *)
%o A084295 (PARI) isok(n) = denominator(primepi(n*prime(n))/n) == 1; \\ _Michel Marcus_, Sep 02 2019
%Y A084295 Cf. A000040, A000720, A033286, A057855, A084297, A084298.
%K A084295 nonn,hard,more
%O A084295 1,2
%A A084295 _Labos Elemer_, May 27 2003
%E A084295 Corrected by _Harvey P. Dale_, Jul 23 2015
%E A084295 a(9)-a(12) from _Giovanni Resta_, Sep 02 2019
%E A084295 a(13) from _Chai Wah Wu_, May 14 2020