A044181 Numbers n such that string 6,1 occurs in the base 7 representation of n but not of n-1.

43, 92, 141, 190, 239, 288, 301, 337, 386, 435, 484, 533, 582, 631, 644, 680, 729, 778, 827, 876, 925, 974, 987, 1023, 1072, 1121, 1170, 1219, 1268, 1317, 1330, 1366, 1415, 1464, 1513, 1562, 1611, 1660, 1673, 1709, 1758, 1807

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A141924 A122617 A306114 * A044562 A060323 A141958

Adjacent sequences: A044178 A044179 A044180 * A044182 A044183 A044184

Keyword

nonn,base

Author

Clark Kimberling

Status

approved