|
%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_.
|
