|
%I #10 Nov 30 2020 12:39:45
%S 56,137,218,299,380,461,512,542,623,704,785,866,947,1028,1109,1190,
%T 1241,1271,1352,1433,1514,1595,1676,1757,1838,1919,1970,2000,2081,
%U 2162,2243,2324,2405,2486,2567,2648,2699,2729,2810
%N Numbers n such that string 6,2 occurs in the base 9 representation of n but not of n+1.
%t Select[Range[3000],MemberQ[Partition[IntegerDigits[#,9],2,1],{6,2}] && !MemberQ[Partition[IntegerDigits[#+1,9],2,1],{6,2}]&] (* _Harvey P. Dale_, Nov 02 2011 *)
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{6,2}]>0,1,0],{n,3000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 30 2020 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
