|
%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
|
