login
A084298
Integer quotients pi(m*prime(m))/m.
1
1, 2, 26, 48, 108, 292, 6471, 8147, 20745, 30803, 38806, 79760, 254050
OFFSET
1,2
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
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