A043912 Numbers k such that 0 and 2 occur juxtaposed in the base-7 representation of k but not of k+1.

14, 51, 63, 104, 112, 149, 161, 198, 210, 247, 259, 296, 308, 345, 363, 394, 406, 447, 455, 492, 504, 541, 553, 590, 602, 639, 651, 734, 737, 749, 790, 798, 835, 847, 884, 896, 933, 945, 982, 994, 1031, 1049, 1080, 1092, 1133

Offset

1,1

Links

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

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {0, 2}]>0 || SequenceCount[IntegerDigits[n, 7], {2, 0}]>0, 1, 0], {n, 1200}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 13 2020 *)

Crossrefs

Cf. A007093.

Sequence in context: A158519 A043132 A039309 * A244804 A009961 A059997

Adjacent sequences: A043909 A043910 A043911 * A043913 A043914 A043915

Keyword

nonn,base

Author

Clark Kimberling

Status

approved