A084297 Primes p=prime(m) such that pi(m*p)/m is an integer.

2, 5, 211, 457, 1223, 3943, 130259, 167953, 468473, 721159, 927317, 2026061, 7066487

Offset

1,1

Links

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

Formula

a(n) = prime(A084295(n)).

Mathematica

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

Crossrefs

Cf. A000040, A000720, A057855, A084295.

Sequence in context: A216458 A027682 A096695 * A041873 A072118 A249180

Adjacent sequences: A084294 A084295 A084296 * A084298 A084299 A084300

Keyword

nonn,more

Author

Labos Elemer, May 27 2003

Extensions

Name edited by Michel Marcus, Aug 30 2019

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

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

Status

approved