%I #28 Aug 28 2018 06:43:19
%S 1,4,9,10,21,22,25,26,27,28,33,34,35,36,49,50,51,52,55,56,57,58,63,64,
%T 65,66,85,86,87,88,91,92,93,94,95,96,115,116,117,118,119,120,121,122,
%U 123,124,125,126,143,144,145,146,147,148,153,154,155,156,161,162,169
%N Smallest number larger than the previous term which is not a prime but is relatively prime to the previous term.
%H T. D. Noe, <a href="/A051884/b051884.txt">Table of n, a(n) for n=1..1000</a>
%H A. Murthy, <a href="http://www.gallup.unm.edu/~smarandache/SN/ScArt5/ExploringNewIdeas.pdf">Exploring some new ideas on Smarandache type sets, functions and sequences</a>, Smarandache Notions Journal Vol. 11 N. 1-2-3 Spring 2000.
%p with(numtheory); i:=4; k:=5; while(k < 100) do while(order(k, i) = FAIL or isprime(k)) do k:=k+1; end do; print(k); i:= k; k:=k+1; end do; # _Ben Paul Thurston_, Feb 08 2007
%t rPrimeNext[n_]:=Module[{k},k=n+1;While[PrimeQ[k]||GCD[n,k]!=1,k++ ];k]; a=1;lst={a};Do[AppendTo[lst,a=rPrimeNext[a]],{n,0,5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, May 15 2010 *)
%t nxt[n_]:=Module[{k=n+1},While[PrimeQ[k]||!CoprimeQ[k,n],k++];k]; NestList[ nxt,1,60] (* _Harvey P. Dale_, Mar 12 2013 *)
%o (Haskell)
%o a051884 n = a051884_list !! (n-1)
%o a051884_list = 1 : f 1 a002808_list where
%o f x cs = y : f y (dropWhile (<= y) cs) where
%o y = head [z | z <- cs, x `gcd` z == 1]
%o -- _Reinhard Zumkeller_, Jun 03 2013
%Y Sequences with related definitions: A072525, A085084, A126638, A131368, A163643.
%Y Cf. A002808.
%K nonn,nice,easy
%O 1,2
%A _Felice Russo_, Dec 15 1999
%E More terms from _James A. Sellers_, Dec 16 1999
%E Definition corrected by _Franklin T. Adams-Watters_, Sep 19 2006