A044526 - OEIS

%I #7 Aug 26 2024 12:14:32

%S 7,56,105,154,203,252,301,399,448,497,546,595,644,693,742,791,840,889,

%T 938,987,1036,1085,1134,1183,1232,1281,1330,1379,1428,1477,1526,1575,

%U 1624,1673,1722,1771,1820,1869,1918,1967,2016

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

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{1,0}]>0,1,0],{n,2100}],{1,0}][[;;,1]] (* _Harvey P. Dale_, Aug 26 2024 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_