A084298 Integer quotients pi(m*prime(m))/m.

1, 2, 26, 48, 108, 292, 6471, 8147, 20745, 30803, 38806, 79760, 254050

Offset: 1

Author

Labos Elemer, May 27 2003

Keywords

• nonn
• more

Crossrefs

Cf. A000040, A000720, A057855, A084295, A084297.

Programs

Mathematica

Do[s=PrimePi[n*Prime[n]]/n; If[IntegerQ[s], Print[s]], {n, 1, 100000}]

Formula

a(n) = A000720(A084295(n)*A084297(n))/A084295(n).

Extensions

a(9)-a(12) from Giovanni Resta, Sep 02 2019

a(13) from Chai Wah Wu, May 14 2020