OFFSET
2,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 2..5000
FORMULA
a(n) = A049711(2*n). - R. J. Mathar, Oct 26 2015
MATHEMATICA
Table[2*n - NextPrime[2*n, -1], {n, 2, 50}] (* G. C. Greubel, Dec 05 2017 *)
PROG
(Magma) [2*n - NthPrime(#PrimesUpTo(2*n)): n in [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
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved