login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers n such that string 3,7 occurs in the base 10 representation of n but not of n+1.
0

%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_