|
%I #16 Jan 06 2014 15:13:38
%S 0,1,2,3,4,5,6,10,11,12,15,16,17,18,20,21,22,23,24,25,30,31,50,55,56,
%T 60,61,62,75,80,81,85,86,87,90,91,92,93,100,105,106,110,111,112,115,
%U 116,117,118,120,121,122,123,124,125,150,155,156,250,275,280,281
%N Nialpdromes: digits in base 5 are in nonincreasing order.
%H Vincenzo Librandi, <a href="/A023761/b023761.txt">Table of n, a(n) for n = 1..1001</a> (adapted to the new offset from _Bruno Berselli_)
%t Select[Range[0, 4000], Max[Differences[IntegerDigits[#, 5]]]<=0&] (* _Vincenzo Librandi_, Dec 26 2012 *)
%t Select[Range[0,281],GreaterEqual@@IntegerDigits[#,5]&] (* _Ray Chandler_, Jan 06 2014 *)
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
