login
A044086
Numbers n such that string 1,4 occurs in the base 5 representation of n but not of n-1.
0
9, 34, 45, 59, 84, 109, 134, 159, 170, 184, 209, 225, 259, 284, 295, 309, 334, 359, 384, 409, 420, 434, 459, 484, 509, 534, 545, 559, 584, 609, 634, 659, 670, 684, 709, 734, 759, 784, 795, 809, 834, 850, 884, 909, 920, 934, 959
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 5], {1, 4}]>0, 1, 0], {n, 1000}], {0, 1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Sep 30 2015 *)
CROSSREFS
Sequence in context: A199298 A033261 A345923 * A044467 A020163 A262959
KEYWORD
nonn,base
STATUS
approved