A049653 a(n) = 2*n - prevprime(2*n).

1, 1, 1, 3, 1, 1, 3, 1, 1, 3, 1, 3, 5, 1, 1, 3, 5, 1, 3, 1, 1, 3, 1, 3, 5, 1, 3, 5, 1, 1, 3, 5, 1, 3, 1, 1, 3, 5, 1, 3, 1, 3, 5, 1, 3, 5, 7, 1, 3, 1, 1, 3, 1, 1, 3, 1, 3, 5, 7, 9, 11, 13, 1, 3, 1, 3, 5, 1, 1, 3, 5, 7, 9, 1, 1, 3, 5, 1, 3, 5, 1, 3, 1, 3, 5, 1, 3, 5, 1, 1, 3, 5, 7

Offset: 2

Author

N. J. A. Sloane

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 2..5000

Crossrefs

Cf. A049613, A049711, A049716, A049847.

Programs

Magma

[2*n - NthPrime(#PrimesUpTo(2*n)): n in [2..50]]; // G. C. Greubel, Dec 05 2017

Mathematica

Table[2*n - NextPrime[2*n, -1], {n, 2, 50}] (* G. C. Greubel, Dec 05 2017 *)

PARI

for(n=2,50, print1(2*n - precprime(2*n), ", ")) \\ G. C. Greubel, Dec 05 2017

Formula

a(n) = A049711(2*n). - R. J. Mathar, Oct 26 2015