editing
approved
editing
approved
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {5, 6}]>0, 1, 0], {n, 4000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Jul 21 2015 *)
approved
editing
Clark Kimberling (ck6(AT)evansville.edu)
String Numbers n such that string 5,6 occurs in the base 10 representation of n but not of n+1.
nonn,base,new
nonn,base,new
Clark Kimberling, (ck6(AT)evansville.edu)
String 5,6 occurs in the base 10 representation of n, but not of n+1.
nonn,base,new
Clark Kimberling, ck6@cedar.(AT)evansville.edu
String 5,6 occurs in the base 10 representation of n, but not of n+1.
56, 156, 256, 356, 456, 556, 569, 656, 756, 856, 956, 1056, 1156, 1256, 1356, 1456, 1556, 1569, 1656, 1756, 1856, 1956, 2056, 2156, 2256, 2356, 2456, 2556, 2569, 2656, 2756, 2856, 2956, 3056, 3156, 3256, 3356, 3456, 3556
1,1
nonn,base
Clark Kimberling, ck6@cedar.evansville.edu
approved