1,1
Do[s=PrimePi[n*Prime[n]]/n; If[IntegerQ[s], Print[Prime[n]]], {n, 1, 100000}]
Cf. A000040, A000720, A084294, A084298.
Sequence in context: A006271 A013105 A096695 this_sequence A041873 A072118 A135724
Adjacent sequences: A084294 A084295 A084296 this_sequence A084298 A084299 A084300
nonn
Labos E. (labos(AT)ana.sote.hu), May 27 2003
Search completed in 0.002 seconds