Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Apr 06 2016 16:13:13
%S 37,137,237,337,379,437,537,637,737,837,937,1037,1137,1237,1337,1379,
%T 1437,1537,1637,1737,1837,1937,2037,2137,2237,2337,2379,2437,2537,
%U 2637,2737,2837,2937,3037,3137,3237,3337,3379,3437
%N Numbers n such that string 3,7 occurs in the base 10 representation of n but not of n+1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{3,7}]>0,1,0],{n,3500}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Apr 06 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_