%I #7 Aug 16 2018 20:28:26
%S 5,7,11,13,17,23,29,29,37,41,43,53,59,59,67,71,79,83,89,97,97,103,107,
%T 127,127,131,131,137,139,149,163,167,173,179,191,191,197,211,211,223,
%U 223,227,239,239,251,251,263,277,277,281
%N Prime next to (n + n-th prime).
%F a(n) = nextprime(A014688(n)).
%t Table[NextPrime[n+Prime[n]],{n,60}] (* _Harvey P. Dale_, Aug 16 2018 *)
%o (PARI) a(n) = nextprime(n + prime(n) + 1); \\ _Michel Marcus_, Oct 09 2013
%Y Cf. A014688.
%K nonn
%O 1,1
%A _Zak Seidov_, Apr 24 2005
|