A013634 a(n) = nextprime(n) + n.

2, 3, 5, 8, 9, 12, 13, 18, 19, 20, 21, 24, 25, 30, 31, 32, 33, 36, 37, 42, 43, 44, 45, 52, 53, 54, 55, 56, 57, 60, 61, 68, 69, 70, 71, 72, 73, 78, 79, 80, 81, 84, 85, 90, 91, 92, 93, 100, 101, 102, 103, 104, 105, 112, 113, 114, 115, 116, 117, 120, 121, 128, 129, 130

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..5000

Crossrefs

Cf. A013632, A151800.

Programs

Magma

[NextPrime(n) + n: n in [0..80]]; // Vincenzo Librandi, Dec 27 2018

Maple

[ seq(nextprime(i)+i,i=0..100) ];

Mathematica

Table[n+NextPrime[n],{n,0,120}] (* Harvey P. Dale, May 03 2013 *)
Array[NextPrime[#] + # &, 80, 0] (* Vincenzo Librandi, Dec 27 2018 *)

Formula

a(n) = A151800(n) + n.