A071329 Largest prime q such that q - prime(n) <= n.

3, 5, 7, 11, 13, 19, 23, 23, 31, 37, 41, 47, 53, 53, 61, 67, 73, 79, 83, 89, 89, 101, 103, 113, 113, 127, 127, 131, 137, 139, 157, 163, 167, 173, 181, 181, 193, 199, 199, 211, 211, 223, 233, 233, 241, 241, 257, 271, 271, 277, 283, 283, 293, 293

Offset

1,1

Comments

a(n) = A007917(n + A000040(n));

a(n) = A071328(n) iff a(n) = A061068(k) for some k.

Links

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

Example

a(10) = A007917(10 + A000040(10)) = A007917(10 + 29)= A007917(39) = 37;
a(6) = A007917(6 + A000040(6)) = A007917(6 + 13)= A007917(19) = 19 = A071328(6) = A061068(4).

Mathematica

With[{prs=Prime[Range[100]]}, Table[Last[Select[prs, (#-prs[[n]]<=n)&]], {n, 60}]] (* Harvey P. Dale, May 11 2012 *)

Crossrefs

Sequence in context: A126991 A264754 A130289 * A109358 A216285 A192862

Adjacent sequences: A071326 A071327 A071328 * A071330 A071331 A071332

Keyword

nonn

Author

Reinhard Zumkeller, May 19 2002

Status

approved