|
%I #7 Jul 01 2018 17:46:49
%S 28,64,100,136,168,208,244,280,316,352,384,424,460,496,532,568,600,
%T 640,676,712,748,784,816,856,892,928,964,1000,1008,1072,1108,1144,
%U 1180,1216,1248,1288,1324,1360,1396,1432,1464,1504,1540
%N Numbers n such that string 4,4 occurs in the base 6 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{4,4}]>0,1,0],{n,1600}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 01 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
