%I #7 May 18 2015 16:25:58
%S 24,73,122,174,220,269,318,367,416,465,517,563,612,661,710,759,808,
%T 860,906,955,1004,1053,1102,1151,1224,1249,1298,1347,1396,1445,1494,
%U 1546,1592,1641,1690,1739,1788,1837,1889,1935,1984
%N Numbers n such that string 3,3 occurs in the base 7 representation of n but not of n+1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{3,3}]>0,1,0],{n,3000}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, May 18 2015 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|