%I #7 May 24 2015 16:18:53
%S 9,58,69,107,156,205,254,303,352,401,412,489,499,548,597,646,695,744,
%T 755,793,842,891,940,989,1038,1087,1098,1136,1185,1234,1283,1332,1381,
%U 1430,1441,1479,1528,1577,1626,1675,1724,1773
%N Numbers n such that string 1,2 occurs in the base 7 representation of n but not of n+1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{1,2}]>0,1,0],{n,2000}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, May 24 2015 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|