|
%I #11 Oct 04 2023 23:44:12
%S 10,18,20,22,26,34,36,38,40,44,46,50,52,54,58,66,68,70,72,76,78,80,88,
%T 92,94,98,100,102,104,108,110,114,116,118,122,130,132,134,136,140,142,
%U 144,152,156,158,160,176,184,188,190,194,196
%N Numbers whose number of runs in the base-2 representation is congruent to 4 mod 6.
%C The following numbers are in this sequence but not in A043758: 682, 1194, 1322, 1354, 1362, 1364, 1366, 1370, 1386, 1450, 1706, 2218, 2346, ...
%C The following numbers are in A043758 but not in this sequence: 5461, 9557, 10581, 10837, 10901, 10917, ... - _R. J. Mathar_, Feb 16 2013
%p A043737 := proc(n)
%p option remember;
%p if n = 1 then
%p 10;
%p else
%p for a from procname(n-1)+1 do
%p if modp(A005811(a),6) = 4 then
%p return a;
%p end if;
%p end do:
%p end if;
%p end proc: # _R. J. Mathar_, Feb 16 2013
%Y Cf. A005811.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
