login
Sequence of primes separated by [sequence of prime] elements. 2, [find 2nd prime after 2 = ] 5, [find 3rd prime after 5 =] 13, [find 5th prime after 13 =] 61, ..., etc.
2

%I #14 Jan 02 2024 14:14:13

%S 2,5,13,31,61,109,181,277,397,547,733,947,1213,1499,1831,2207,2633,

%T 3083,3583,4133,4751,5407,6073,6793,7589,8513,9397,10313,11353,12409,

%U 13451,14713,15889,17299,18593,20129,21613,23167,24851,26561,28387,30203

%N Sequence of primes separated by [sequence of prime] elements. 2, [find 2nd prime after 2 = ] 5, [find 3rd prime after 5 =] 13, [find 5th prime after 13 =] 61, ..., etc.

%C Similar to A006450.

%t NestList[n = 0; (n++; NextPrime[ #, Prime@ n]) &, 2, 41] (* _Robert G. Wilson v_, Aug 25 2010 *)

%t Prime[Accumulate[Join[{1}, Prime[Range[45]]]]] (* _Alonso del Arte_, Oct 09 2012 *)

%Y Cf. A006450, A014284.

%K nonn

%O 1,1

%A _Daniel Tisdale_, Aug 24 2010

%E a(8) onwards from _Robert G. Wilson v_, Aug 25 2010