A093503 - OEIS

%I #11 Aug 29 2023 08:57:19

%S 2,3,5,11,17,23,29,37,47,59,71,83,97,113,127,149,167,191,211,233,257,

%T 281,307,331,359,389,419,449,479,509,541,577,613,647,683,719,757,797,

%U 839,881,929,971,1013,1061,1109,1163,1213,1277,1327,1381,1433,1487,1543

%N a(0) = 2, a(n) = least prime >= a(n-1) + n.

%C A variant with offset 1 is 2, 5, 11, 17, ... which agrees with this sequence for n > 1.

%H Paolo Xausa, <a href="/A093503/b093503.txt">Table of n, a(n) for n = 0..10000</a>

%e a(6) is the least prime >= a(5) + 6 = 23 + 6 = 29, hence a(6) = 29.

%t A093503list[nmax_]:=Module[{n=0},NestList[NextPrime[#+n++]&,2,nmax]];A093503list[100] (* _Paolo Xausa_, Aug 29 2023 *)

%o (PARI) p=2;for(n=1,53,print1(p,",");p=nextprime(p+n))

%Y Cf. A093504.

%K easy,nonn

%O 0,1

%A _Amarnath Murthy_, Apr 17 2004

%E Edited by _Klaus Brockhaus_, Apr 27 2004