A073326 Smallest x such that prime(x) == n (mod (x-pi(x)-1)).

6, 67, 9, 10, 13, 96, 15, 16, 74, 73, 32, 85, 31, 4086, 228, 611, 28, 30, 44, 616, 263, 617, 43, 4090, 47, 633, 241, 631, 49, 122195143823, 48, 102, 123, 622, 62, 120, 65, 103, 112, 108, 64, 4094, 63, 127, 271, 109, 128, 129, 70, 132, 133, 137, 131, 4060, 644

Offset

1,1

Links

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

Formula

a(n) = Min{x : A000040(x) == n (mod (x-A000720(x)-1)) }.

Example

p(10) mod (10-PrimePi(10)-1) = 29 mod (10-4-1) = 29 mod 5 = 4 and a(4)=10.

Mathematica

a[n_] := (k = 4; While[ Mod[ Prime[k], k - PrimePi[k] - 1] != n, k++ ]; k); Table[ a[n], {n, 1, 29}]

Crossrefs

Cf. A000040, A000720, A073324, A073326.

Sequence in context: A082781 A257049 A099147 * A024203 A355051 A231598

Adjacent sequences: A073323 A073324 A073325 * A073327 A073328 A073329

Keyword

nonn

Author

Labos Elemer, Jul 30 2002

Extensions

Edited by Robert G. Wilson v, Jul 31 2002

a(30) from Giovanni Resta, Sep 02 2019

Status

approved