|
%I #8 Oct 13 2019 16:33:59
%S 0,1,2,3,4,5,6,8,16,24,32,40,48,56,57,58,59,60,61,62,112,113,114,115,
%T 116,117,118,168,169,170,171,172,173,174,224,225,226,227,228,229,230,
%U 280,281,282,283,284,285,286,336,337,338,339,340,341,342,399,400,401
%N Numbers whose base-7 expansions, read from left to right, have run lengths that strictly decrease.
%t Select[Range[0,500],Max[Differences[Length/@Split[IntegerDigits[ #, 7]]]]<0&] (* _Harvey P. Dale_, Apr 27 2018 *)
%Y Cf. A037013, A043696, A043710, A044818, A044956.
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Feb 15 1999
|
