login
A043233
Numbers k such that 2 and 3 occur juxtaposed in the base-10 representation of k but not of k-1.
0
23, 32, 123, 132, 223, 230, 320, 332, 423, 432, 523, 532, 623, 632, 723, 732, 823, 832, 923, 932, 1023, 1032, 1123, 1132, 1223, 1230, 1320, 1332, 1423, 1432, 1523, 1532, 1623, 1632, 1723, 1732, 1823, 1832, 1923, 1932, 2023
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {2, 3}]>0 || SequenceCount[ IntegerDigits[n], {3, 2}]>0, 1, 0], {n, 2100}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 31 2020 *)
CROSSREFS
Sequence in context: A112687 A107282 A039410 * A044013 A081991 A118298
KEYWORD
nonn,base
STATUS
approved