1,2
a(n)=A000720[A084295(n).A084297(n)]/A084295(n)
Do[s=PrimePi[n*Prime[n]]/n; If[IntegerQ[s], Print[s]], {n, 1, 100000}]
Cf. A000040, A000720, A084295, A084297.
Adjacent sequences: A084295 A084296 A084297 this_sequence A084299 A084300 A084301
Sequence in context: A072663 A050905 A067571 this_sequence A001772 A132861 A067204
nonn
Labos E. (labos(AT)ana.sote.hu), May 27 2003
Search completed in 0.002 seconds
