OFFSET
1,1
MATHEMATICA
Map[#[[1]] &, Select[Map[{#, DeleteDuplicates[Partition[Map[#[[1]] &, Split[IntegerDigits[#, 3]]], UpTo[3]]] == {{2, 0, 1}}} &,
Range[1, 3600, 3]], #[[2]] &]] (* this sequence *)
m = Map[{#, IntegerString[#, 3]} &, %];
Map[Last, ToExpression[m]] (* A371110 *)
(*Peter J. C. Moses, Mar 06 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Clark Kimberling, Mar 31 2024
STATUS
approved