%I A084295
%S A084295 1,3,47,200,547,12182,15335
%N A084295 n is such that Pi[n.p(n)]/n is an integer.
%t A084295 Do[s=PrimePi[n*Prime[n]]/n; If[IntegerQ[s], Print[n]], {n, 1, 100000}]
%Y A084295 Cf. A000040, A000720, A084297, A084298.
%Y A084295 Sequence in context: A058427 A142293 A052187 this_sequence A131465 A137611 
               A088718
%Y A084295 Adjacent sequences: A084292 A084293 A084294 this_sequence A084296 A084297 
               A084298
%K A084295 nonn
%O A084295 1,2
%A A084295 Labos E. (labos(AT)ana.sote.hu), May 27 2003