login
A044326
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, 675, 723, 804, 885, 966, 1047, 1128, 1209, 1290, 1371, 1404, 1452, 1533, 1614, 1695, 1776, 1857, 1938, 2019, 2100, 2133, 2181, 2262, 2343, 2424, 2505, 2586, 2667, 2748, 2829, 2862
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {8, 3}]>0, 1, 0], {n, 3000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 11 2018 *)
CROSSREFS
Sequence in context: A260538 A361487 A023095 * A044707 A228306 A044407
KEYWORD
nonn,base
STATUS
approved