login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A251621 Run lengths in A249943. 3

%I #60 Jan 23 2022 13:54:36

%S 1,1,1,1,1,1,3,1,2,4,1,1,4,6,2,6,4,2,4,6,6,2,6,4,2,6,4,6,8,4,2,4,2,4,

%T 14,4,6,2,10,2,6,6,4,6,6,2,10,2,4,2,12,12,4,2,4,6,2,10,6,6,6,2,6,4,2,

%U 10,14,4,2,4,14,6,10,2,4,6,8,6,6,4,6,8,4

%N Run lengths in A249943.

%D Bradley Klee, Posting to Sequence Fans Mailing List, Dec 07 2014

%D Vladimir Shevelev, Postings to Sequence Fans Mailing List, Dec 07, 10 and 11, 2014

%H Reinhard Zumkeller, <a href="/A251621/b251621.txt">Table of n, a(n) for n = 1..1000</a>

%H David L. Applegate, Hans Havermann, Bob Selcoe, Vladimir Shevelev, N. J. A. Sloane, and Reinhard Zumkeller, <a href="http://arxiv.org/abs/1501.01669">The Yellowstone Permutation</a>, arXiv preprint arXiv:1501.01669 [math.NT], 2015 and <a href="https://cs.uwaterloo.ca/journals/JIS/VOL18/Sloane/sloane9.html">J. Int. Seq. 18 (2015) 15.6.7</a>.

%F Connection with prime gaps: conjecturally, for n>=13, we have a(n) = A001223(n-5). - _Vladimir Shevelev_, Dec 07 2014

%F _Bradley Klee_ noted that this conjecture and his conjectures in A251416 are equivalent. At least to one side, our conjecture could be deduced from Klee's conjectures by a simple induction. - _Vladimir Shevelev_, Dec 10 2014

%F As a corollary, we have an explicit conjectural formula for prime(n), n>=8, essentially based on A098550: prime(n) = 19 + sum{i=9,...,n}a(i+4). - _Vladimir Shevelev_, Dec 11 2014

%e From _Vladimir Shevelev_, Dec 11 2014: (Start)

%e For formula for prime(n):

%e 1) n=8, prime(8) = 19;

%e 2) n=9, prime(9) = 19 + a(13) = 19 + 4 = 23;

%e 3) n=10, prime(10)= 19 + a(13) + a(14) = 23 + 6 = 29, etc.

%e (End)

%t 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]; runningMax = Rest[FoldList[Max, -Infinity, #]]&; A249943 = runningMax[Take[Ordering[A098550], NestWhile[#+1&, 1, MemberQ[A098550, #] &] - 1]]; Length /@ Split[A249943] (* _Jean-François Alcover_, Sep 11 2017, using code from _Robert G. Wilson v_ *)

%o (Haskell)

%o import Data.List (group)

%o a251621 n = a251621_list !! (n-1)

%o a251621_list = map length $ group a249943_list

%Y Cf. A000040, A001223, A098550, A249943, A251416, A251620.

%K nonn

%O 1,7

%A _Reinhard Zumkeller_, Dec 06 2014

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 03:28 EDT 2024. Contains 371235 sequences. (Running on oeis4.)