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

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

Offset

1,2

Links

Table of n, a(n) for n=1..13.

Formula

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

Mathematica

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

Crossrefs

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

Sequence in context: A050905 A067571 A319486 * A001772 A199206 A132861

Adjacent sequences: A084295 A084296 A084297 * A084299 A084300 A084301

Keyword

nonn,more

Author

Labos Elemer, May 27 2003

Extensions

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

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

Status

approved