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 #27 Mar 12 2017 16:29:02
%S 3,6,13,21,73,98,521,636,4721,5439,53323,59318,737183,801235,12215237,
%T 13068626,238205651,251987681,5381022817,5644769560,138933578143,
%U 144807081479,4053430178401,4203399920996,132332669898119,136669373292795,4793783797371011
%N a(1)=3; thereafter, if n odd, a(n) = a(n-1)-st prime, and if n even, a(n) = a(n-1)-st nonprime.
%C This is the sequence S_2 mentioned in A141436. The primes and nonprimes alternate.
%p # See A280028 for Maple program
%t nonPrime[n_Integer] := FixedPoint[n + PrimePi@# &, n + PrimePi@ n]; a[n_] := a[n] = If[OddQ@ n, Prime@ a[n -1], nonPrime[ a[n -1]]]; a[1] = 3; Array[a, 26] *( _Robert G. Wilson v_, Dec 28 2016 *)
%Y Cf. A000040, A018252, A141436, A280028, A280030.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Dec 25 2016
%E a(12)-a(26) from _Hans Havermann_, Dec 25 2016
%E a(27) from _Chai Wah Wu_, Dec 27 2016