|
%I #11 Feb 12 2021 21:35:50
%S 1,2,3,4,5,8,9,10,11,15,16,17,22,23,29,37,38,39,40,41,73,74,75,76,77,
%T 80,81,82,83,109,110,111,112,113,116,117,118,119,123,124,125,145,146,
%U 147,148,149,152,153,154,155,159,160,161,166,167
%N Numbers whose base-6 representation Sum_{i=0..m} d(i)*6^i has d(0) > d(1) < d(2) > ...
%t sdQ[n_]:=Module[{s=Sign[Differences[Reverse[IntegerDigits[n,6]]]]},s == PadRight[ {}, Length[ s],{-1,1}]]; Select[Range[200],sdQ] (* _Harvey P. Dale_, Dec 15 2017 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
