|
%I #16 Jan 06 2014 15:17:15
%S 0,1,2,3,4,5,6,7,8,14,15,16,21,22,23,24,28,29,30,31,32,35,36,37,38,39,
%T 40,42,43,44,45,46,47,48,49,56,57,98,105,106,112,113,114,147,154,155,
%U 161,162,163,168,169,170,171,196,203,204,210,211,212,217,218
%N Nialpdromes: digits in base 7 are in nonincreasing order.
%H Vincenzo Librandi, <a href="/A023763/b023763.txt">Table of n, a(n) for n = 1..1001</a> (adapted to the new offset from _Bruno Berselli_)
%t Select[Range[0, 2000], Max[Differences[IntegerDigits[#, 7]]]<=0&] (* _Vincenzo Librandi_, Dec 26 2012 *)
%t Select[Range[0,218],GreaterEqual@@IntegerDigits[#,7]&] (* _Ray Chandler_, Jan 06 2014 *)
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
