login
A044100
Numbers n such that string 4,3 occurs in the base 5 representation of n but not of n-1.
0
23, 48, 73, 98, 115, 123, 148, 173, 198, 223, 240, 248, 273, 298, 323, 348, 365, 373, 398, 423, 448, 473, 490, 498, 523, 548, 573, 575, 615, 623, 648, 673, 698, 723, 740, 748, 773, 798, 823, 848, 865, 873, 898, 923, 948, 973
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 5], {4, 3}]>0, 1, 0], {n, 1000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 16 2017 *)
CROSSREFS
Sequence in context: A333115 A042056 A087807 * A044481 A132764 A029493
KEYWORD
nonn,base
STATUS
approved