%I #7 May 25 2016 17:46:57
%S 93,193,293,393,493,593,693,793,893,930,993,1093,1193,1293,1393,1493,
%T 1593,1693,1793,1893,1930,1993,2093,2193,2293,2393,2493,2593,2693,
%U 2793,2893,2930,2993,3093,3193,3293,3393,3493,3593
%N Numbers n such that string 9,3 occurs in the base 10 representation of n but not of n1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{9,3}]>0,1,0],{n,4000}],{0,1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, May 25 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
