Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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