|
%I #7 Aug 12 2018 11:23:39
%S 34,70,106,142,178,204,214,250,286,322,358,394,420,430,466,502,538,
%T 574,610,636,646,682,718,754,790,826,852,862,898,934,970,1006,1042,
%U 1068,1078,1114,1150,1186,1222,1224,1284,1294,1330
%N Numbers n such that string 5,4 occurs in the base 6 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{5,4}]>0,1,0],{n,1500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 12 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
