|
%I #16 Jan 06 2014 15:15:20
%S 0,1,2,3,4,5,6,7,12,13,14,18,19,20,21,24,25,26,27,28,30,31,32,33,34,
%T 35,36,42,43,72,78,79,84,85,86,108,114,115,120,121,122,126,127,128,
%U 129,144,150,151,156,157,158,162,163,164,165,168,169,170,171,172
%N Nialpdromes: digits in base 6 are in nonincreasing order.
%H Vincenzo Librandi, <a href="/A023762/b023762.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[#, 6]]]<=0&] (* _Vincenzo Librandi_, Dec 26 2012 *)
%t Select[Range[0,172],GreaterEqual@@IntegerDigits[#,6]&] (* _Ray Chandler_, Jan 06 2014 *)
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
