login
Numbers n such that string 1,5 occurs in the base 6 representation of n but not of n-1.
0

%I #7 Apr 07 2018 07:34:24

%S 11,47,66,83,119,155,191,227,263,282,299,335,371,396,443,479,498,515,

%T 551,587,623,659,695,714,731,767,803,839,875,911,930,947,983,1019,

%U 1055,1091,1127,1146,1163,1199,1235,1271,1307,1343

%N Numbers n such that string 1,5 occurs in the base 6 representation of n but not of n-1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{1,5}]>0,1,0],{n,1400}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 07 2018 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_