A044547 Numbers n such that string 4,0 occurs in the base 7 representation of n but not of n+1.

28, 77, 126, 175, 202, 224, 273, 322, 371, 420, 469, 518, 545, 567, 616, 665, 714, 763, 812, 861, 888, 910, 959, 1008, 1057, 1106, 1155, 1204, 1231, 1253, 1302, 1351, 1420, 1449, 1498, 1547, 1574, 1596, 1645, 1694, 1743, 1792

Offset

1,1

Links

Table of n, a(n) for n=1..42.

Mathematica

Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {4, 0}]>0, 1, 0], {n, 2000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Oct 02 2015 *)

Crossrefs

Sequence in context: A116314 A341175 A044166 * A268733 A119178 A161935

Adjacent sequences: A044544 A044545 A044546 * A044548 A044549 A044550

Keyword

nonn,base

Author

Clark Kimberling

Status

approved