|
%I #13 Feb 12 2021 20:46:26
%S 1,2,3,4,5,6,7,10,11,12,13,14,15,19,20,21,22,23,28,29,30,31,37,38,39,
%T 46,47,55,80,81,88,89,90,96,97,98,99,104,105,106,107,108,112,113,114,
%U 115,116,117,120,121,122,123,124,125,126,152,153
%N Numbers whose base-8 representation Sum_{i=0..m} d(i)*8^i has d(m) < d(m-1) > d(m-2) < ...
%H Harvey P. Dale, <a href="/A032846/b032846.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[200],Sign[Differences[IntegerDigits[#,8]]]==PadRight[ {},IntegerLength[ #,8]-1,{1,-1}]&] (* _Harvey P. Dale_, Nov 01 2020 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
