%I #7 Jun 06 2016 13:40:49
%S 51,115,179,243,307,371,415,435,499,563,627,691,755,819,883,927,947,
%T 1011,1075,1139,1203,1267,1331,1395,1439,1459,1523,1587,1651,1715,
%U 1779,1843,1907,1951,1971,2035,2099,2163,2227,2291,2355
%N Numbers n such that string 6,3 occurs in the base 8 representation of n but not of n+1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{6,3}]>0,1,0],{n,2500}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 06 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|