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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A139420 a(n) = length of n-th run of consecutive numbers in A136120. 4
1, 3, 2, 2, 5, 2, 6, 2, 7, 2, 2, 2, 2, 11, 2, 12, 2, 2, 2, 2, 2, 17, 2, 18, 2, 2, 2, 2, 2, 2, 24, 2, 25, 2, 26, 2, 27, 2, 28, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 38, 2, 39, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 50, 2, 51, 2, 52, 2, 53, 2, 54, 2, 55, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 71, 2, 72, 2, 2, 2 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Klaus Brockhaus, Table of n, a(n) for n=1..395

EXAMPLE

A136120 starts 1, 3, 4, 5, 9, 10, 15, ..., so a(1) = 1, a(2) = 3, a(3) = 2.

MATHEMATICA

f[seq_] := Module[{s = seq, n1, n2}, n++; n1 = s[[n]] + n; If[n1 <= len, n2 = Min[n - 1 + 2*s[[n]], len]; len -= n2 - n1 + 1; Drop[s, {n1, n2}], s]]; n = 0; len = 29800; Length /@Split[FixedPoint[f, Range[len]], #2 - #1 == 1 &]  (* Jayanta Basu, Jun 15 2013 - using the Mma program in A136120 *)

CROSSREFS

Cf. A136120, A139418, A139419.

Sequence in context: A120729 A205139 A092743 * A092895 A151842 A076118

Adjacent sequences:  A139417 A139418 A139419 * A139421 A139422 A139423

KEYWORD

nonn

AUTHOR

Klaus Brockhaus, Apr 22 2008

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 10 14:17 EDT 2020. Contains 335576 sequences. (Running on oeis4.)