OFFSET
1,1
EXAMPLE
1021002 has the form A(1)B(1)C(1)A(2)B(2)C(2), where A(1) = 1, B(1) = 0, C(1)=2, A(2)= 1, B(2) = 00, and C(2) = 2.
MATHEMATICA
Map[#[[1]] &, Select[Map[{#, DeleteDuplicates[Partition[Map[#[[1]] &, Split[IntegerDigits[#, 3]]], UpTo[3]]] == {{1, 0, 2}}} &,
Range[2, 2800, 3]], #[[2]] &]] (* this sequence *)
m = Map[{#, IntegerString[#, 3]} &, %];
Map[Last, ToExpression[m]] (* A371106 *)
(* Peter J. C. Moses, Mar 06 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Clark Kimberling, Mar 22 2024
STATUS
approved