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

48, 97, 146, 195, 244, 293, 342, 391, 440, 489, 538, 587, 636, 685, 734, 783, 832, 881, 930, 979, 1028, 1077, 1126, 1175, 1224, 1273, 1322, 1371, 1420, 1469, 1518, 1567, 1616, 1665, 1714, 1763, 1812, 1861, 1910, 1959, 2008, 2057, 2106, 2155, 2204, 2253, 2302

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000
• Tanya Khovanova, Non Recursions

Crossrefs

Cf. A157362, A010727 [From Vincenzo Librandi, Mar 12 2009]

Programs

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{6,6}]>0,1,0],{n,2500}],{1,0}][[All,1]] (* Harvey P. Dale, Aug 20 2021 *)

Extensions

Incorrect Mathematica program deleted by Harvey P. Dale, Aug 20 2021