OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{j = 0, k = 3}, Position[Partition[Array[Boole[Total@ {SequenceCount[#, {j, k}], SequenceCount[#, {k, j}]} > 0] &@ IntegerDigits[#] &, 2100], 2, 1], {1, 0}][[All, 1]]] (* Michael De Vlieger, Aug 27 2021 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {0, 3}]>0||SequenceCount[ IntegerDigits[ n], {3, 0}]>0, 1, 0], {n, 2100}], {1, 0}][[All, 1]] (* Harvey P. Dale, Jun 11 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved