|
%I #12 Apr 04 2024 10:28:59
%S 120,1120,1200,1220,11120,11200,11220,12000,12200,12220,111120,111200,
%T 111220,112000,112200,112220,120000,120120,122000,122200,122220,
%U 1111120,1111200,1111220,1112000,1112200,1112220,1120000,1120120,1122000,1122200,1122220
%N Ternary numbers that are concatenated runs A(1)C(1)B(1)A(2)C(2)B(2)...A(k)C(k)B(k), where A(i) is a run of 1's, B(i) a run of 0's, and C(i) a run of 2's, for i = 1..k.
%e 111220 has the form A(1)C(1)B(1), where A(1) = 111, B(1) = 0, C(1)=22.
%t Map[#[[1]] &, Select[Map[{#, DeleteDuplicates[Partition[Map[#[[1]] &, Split[IntegerDigits[#, 3]]], UpTo[3]]] == {{1, 2, 0}}} &,
%t Range[3, 3600, 3]], #[[2]] &]] (* this sequence *)
%t m = Map[{#, IntegerString[#, 3]} &, %];
%t Map[Last, ToExpression[m]] (* A371108 *)
%t (* _Peter J. C. Moses_, Mar 06 2024 *)
%Y Cf. A007089, A371105, A371106, A371108, A371109, A371110, A371111, A371112.
%K nonn,base
%O 1,1
%A _Clark Kimberling_, Mar 22 2024
|
