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,1

Links

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

Formula

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

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 *)

Prog

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

Crossrefs

Cf. A013632, A151800.

Sequence in context: A364926 A363097 A192391 * A133484 A181155 A153081

Adjacent sequences: A013631 A013632 A013633 * A013635 A013636 A013637

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved