login
A043205
Numbers k such that 3 and 8 occur juxtaposed in the base-9 representation of k but not of k-1.
0
35, 75, 116, 156, 197, 237, 278, 315, 359, 399, 440, 480, 521, 561, 602, 642, 675, 723, 764, 804, 845, 885, 926, 966, 1007, 1044, 1088, 1128, 1169, 1209, 1250, 1290, 1331, 1371, 1404, 1452, 1493, 1533, 1574, 1614, 1655, 1695
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {3, 8}]>0 || SequenceCount[ IntegerDigits[n, 9], {8, 3}]>0, 1, 0], {n, 2000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 30 2017 *)
CROSSREFS
Cf. A007095.
Sequence in context: A350055 A044518 A039382 * A043985 A254443 A300160
KEYWORD
nonn,base
STATUS
approved