login
a(n) = nextprime(n) + n.
3

%I #17 Sep 08 2022 08:44:38

%S 2,3,5,8,9,12,13,18,19,20,21,24,25,30,31,32,33,36,37,42,43,44,45,52,

%T 53,54,55,56,57,60,61,68,69,70,71,72,73,78,79,80,81,84,85,90,91,92,93,

%U 100,101,102,103,104,105,112,113,114,115,116,117,120,121,128,129,130

%N a(n) = nextprime(n) + n.

%H Vincenzo Librandi, <a href="/A013634/b013634.txt">Table of n, a(n) for n = 0..5000</a>

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

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

%t Table[n+NextPrime[n],{n,0,120}] (* _Harvey P. Dale_, May 03 2013 *)

%t Array[NextPrime[#] + # &, 80, 0] (* _Vincenzo Librandi_, Dec 27 2018 *)

%o (Magma) [NextPrime(n) + n: n in [0..80]]; // _Vincenzo Librandi_, Dec 27 2018

%Y Cf. A013632, A151800.

%K nonn

%O 0,1

%A _N. J. A. Sloane_.