login
A044669
Numbers n such that string 4,1 occurs in the base 9 representation of n but not of n+1.
1
37, 118, 199, 280, 341, 361, 442, 523, 604, 685, 766, 847, 928, 1009, 1070, 1090, 1171, 1252, 1333, 1414, 1495, 1576, 1657, 1738, 1799, 1819, 1900, 1981, 2062, 2143, 2224, 2305, 2386, 2467, 2528, 2548, 2629, 2710, 2791
OFFSET
1,1
LINKS
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {4, 1}]>0, 1, 0], {n, 3000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Feb 28 2016 *)
CROSSREFS
Sequence in context: A138638 A193105 A044288 * A048510 A250891 A250898
KEYWORD
nonn,base
STATUS
approved