1,2
Do[s=PrimePi[n*Prime[n]]/n; If[IntegerQ[s], Print[n]], {n, 1, 100000}]
Cf. A000040, A000720, A084297, A084298.
Adjacent sequences: A084292 A084293 A084294 this_sequence A084296 A084297 A084298
Sequence in context: A058427 A142293 A052187 this_sequence A131465 A137611 A088718
nonn
Labos E. (labos(AT)ana.sote.hu), May 27 2003
Search completed in 0.002 seconds