The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A253048 List of composite numbers in A098550 which appear immediately after a prime. 4
 4, 6, 10, 33, 18, 42, 48, 58, 70, 82, 90, 102, 110, 120, 126, 140, 144, 154, 150, 182, 180, 198, 200, 220, 216, 228, 272, 252, 280, 270, 300, 306, 312, 330, 336, 340, 348, 360, 390, 392, 396, 400, 442, 438, 468, 440, 506, 480, 484, 500, 486, 518, 528, 540, 574, 546, 570, 572, 616 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 David L. Applegate, Hans Havermann, Bob Selcoe, Vladimir Shevelev, N. J. A. Sloane, and Reinhard Zumkeller, The Yellowstone Permutation, arXiv preprint arXiv:1501.01669, 2015 and J. Int. Seq. 18 (2015) 15.6.7. MATHEMATICA f[lst_] := Block[{k = 4}, While[GCD[lst[[-2]], k] == 1 || GCD[lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]]; A098550 = Nest[f, {1, 2, 3}, 1000]; sp = SequencePosition[A098550, {_?PrimeQ, _?CompositeQ}] [[All, 2]]; A098550[[sp]] (* Jean-François Alcover, Sep 03 2018, after Robert G. Wilson v in A098550 *) PROG (Haskell) a253048 n = a253048_list !! (n-1) a253048_list = filter ((== 0) . a010051') \$ map a253049 [1..] -- Reinhard Zumkeller, Dec 30 2014 CROSSREFS Cf. A098550. Subsequence of A253049. Cf. A010051, A251239. Sequence in context: A291542 A242565 A032392 * A271956 A242502 A136838 Adjacent sequences:  A253045 A253046 A253047 * A253049 A253050 A253051 KEYWORD nonn AUTHOR N. J. A. Sloane, Dec 27 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 15 00:00 EDT 2021. Contains 345041 sequences. (Running on oeis4.)