A171888 - OEIS

%I #14 Sep 12 2019 15:01:35

%S 1,2,5,6,9,10,11,13,15,16,18,19,21,22,23,24,27,28,29,30,31,33,34

%N Records in A171868 (values).

%H Rémy Sigrist, <a href="/A171888/a171888.txt">C program for A171888</a>

%o (Python)

%o A181391_list, A171888_list, l, r = [0, 0], [1], 0, 1

%o for n in range(1, 10**6):

%o ....for m in range(n-1, -1, -1):

%o ........if A181391_list[m] == A181391_list[n]:

%o ............A181391_list.append(n-m)

%o ............break

%o ....else:

%o ........A181391_list.append(0)

%o ........if n-l > r:

%o ............r = n-l

%o ............A171888_list.append(r)

%o ........l = n # _Chai Wah Wu_, Jan 02 2015

%o (C) See Links section.

%Y Cf. A181391, A171865, A171868, A171887.

%K nonn,more

%O 1,2

%A _N. J. A. Sloane_, Oct 18 2010

%E a(12)-a(13) from _Chai Wah Wu_, Jan 02 2015

%E a(14)-a(17) from _Rémy Sigrist_, Jun 11 2019

%E a(18)-a(23) from _Benjamin Chaffin_, Sep 11 2019