cp's OEIS Frontend

A131982 Numbers n such that A131981(n) = n/2.

%I A131982 #8 Nov 16 2017 15:52:24
%S A131982 576,584,588,592,600,1650,1654,3430,3440,3448,3452,3458,3462,3466,
%T A131982 3474,3520,3600,3608,3610
%N A131982 Numbers n such that A131981(n) = n/2.
%C A131982 Numbers n such that number of terms <= n of A116700 equals number of terms <= n of A131881.
%C A131982 Numbers n such that numbers of numbers that occur in the concatenation of 1,2,3...,n-1 equals numbers of numbers that do not occur in the concatenation of 1,2,3...,n-1.
%C A131982 There are no other terms <= 600000. The plots in the link strongly suggest that the sequence is complete.
%H A131982 Klaus Brockhaus, <a href="/A131981/a131981.gif">Plots of A131981(n)/n at various scales</a>
%e A131982 A131981(n) < n/2 for 1 <=n < 576,
%e A131982 A131981(n) < n/2 for 576 < n < 584,
%e A131982 A131981(n) > n/2 for 584 < n < 588,
%e A131982 A131981(n) < n/2 for 588 < n < 592,
%e A131982 A131981(n) > n/2 for 592 < n < 600,
%e A131982 A131981(n) > n/2 for 600 < n < 1650,
%e A131982 A131981(n) > n/2 for 1650 < n < 1654,
%e A131982 A131981(n) < n/2 for 1654 < n < 3430,
%e A131982 A131981(n) > n/2 for 3430 < n < 3440,
%e A131982 ..............
%e A131982 A131981(n) < n/2 for 3608 < n <= 3610,
%e A131982 A131981(n) > n/2 for 3610 < n <= 600000.
%o A131982 (JBASIC)
%o A131982 s$ = "" : c = 0 : d = 0
%o A131982 FOR n = 1 TO 4000
%o A131982 sn$ = str$(n)
%o A131982 IF instr(s$, sn$) > 0 THEN d = d+1 ELSE c = c+1
%o A131982 s$ = s$ + sn$ : IF c = d THEN print n ; ",";
%o A131982 NEXT
%Y A131982 Cf. A116700 (early bird numbers), A131881 (complement of A116700), A131981 (number of early bird numbers <= n), A105390 (number of Rollman numbers <= n), A105391 (numbers n such that A105390(n) = n/2).
%K A131982 nonn,base
%O A131982 1,1
%A A131982 _Klaus Brockhaus_, Aug 15 2007
%E A131982 Edited by _Charles R Greathouse IV_, Oct 28 2009