login
A044639
Numbers n such that string 0,7 occurs in the base 9 representation of n but not of n+1.
0
88, 169, 250, 331, 412, 493, 574, 655, 736, 800, 817, 898, 979, 1060, 1141, 1222, 1303, 1384, 1465, 1529, 1546, 1627, 1708, 1789, 1870, 1951, 2032, 2113, 2194, 2258, 2275, 2356, 2437, 2518, 2599, 2680, 2761, 2842, 2923
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {0, 7}]>0, 1, 0], {n, 3000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 11 2017 *)
CROSSREFS
Sequence in context: A249555 A226587 A044258 * A050224 A270299 A043522
KEYWORD
nonn,base
STATUS
approved