%I #7 Aug 07 2015 16:34:16
%S 31,67,103,139,175,186,211,247,283,319,355,391,402,427,463,499,535,
%T 571,607,618,643,679,715,751,787,823,834,859,895,931,967,1003,1039,
%U 1050,1075,1111,1116,1183,1219,1255,1266,1291,1327
%N Numbers n such that string 5,1 occurs in the base 6 representation of n but not of n-1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{5,1}]>0,1,0],{n,1500}],{0,1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 07 2015 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|