login
A044707
Numbers n such that string 8,3 occurs in the base 9 representation of n but not of n+1.
0
75, 156, 237, 318, 399, 480, 561, 642, 683, 723, 804, 885, 966, 1047, 1128, 1209, 1290, 1371, 1412, 1452, 1533, 1614, 1695, 1776, 1857, 1938, 2019, 2100, 2141, 2181, 2262, 2343, 2424, 2505, 2586, 2667, 2748, 2829, 2870
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {8, 3}]>0, 1, 0], {n, 3000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 06 2019 *)
CROSSREFS
Sequence in context: A361487 A023095 A044326 * A228306 A044407 A044788
KEYWORD
nonn,base
STATUS
approved