A044522 - OEIS

%I #7 Jul 23 2020 14:42:12

%S 52,101,150,199,248,297,346,370,395,444,493,542,591,640,689,713,738,

%T 787,836,885,934,983,1032,1056,1081,1130,1179,1228,1277,1326,1375,

%U 1399,1424,1473,1522,1571,1620,1669,1718,1742,1767,1816

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

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{0,3}]>0,1,0],{n,2000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 23 2020 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_