A251767 Consecutive repeated terms removed from in A251539.

4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 1, 2, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 1, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 1, 4, 3, 4, 3, 4, 2, 4, 3, 4, 3, 4, 3, 4, 1, 2, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 1, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 2, 4, 1, 4, 3

Offset

1,1

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

max = 2000 (* = max term of A251538 *);
A098548 = {1, 2, 3};
For[n = 4, n <= 8 max, n++, If[GCD[n, A098548[[-1]]] == 1 && GCD[n, A098548[[-2]]] > 1, AppendTo[A098548, n]]];
A251538 = Select[Range[max], A098548[[2 # + 3]] > A098548[[2 # + 1]] + 6&];
A251539 = Differences[A251538];
First /@ Split[A251539] (* Jean-François Alcover, Aug 01 2018 *)

Prog

(Haskell)
import Data.List (group)
a251767 n = a251767_list !! (n-1)
a251767_list = map head $ group a251539_list

Crossrefs

Cf. A251539, A251768.

Sequence in context: A231475 A106055 A171783 * A168309 A103947 A178038

Adjacent sequences: A251764 A251765 A251766 * A251768 A251769 A251770

Keyword

nonn

Author

Reinhard Zumkeller, Dec 08 2014

Status

approved