|
%I #22 Feb 15 2019 01:54:36
%S 0,1,2,3,4,5,8,9,10,12,13,14,15,16,20,21,32,36,37,40,41,42,48,52,53,
%T 56,57,58,60,61,62,63,64,80,84,85,128,144,148,149,160,164,165,168,169,
%U 170,192,208,212,213,224,228,229,232,233,234,240,244,245,248
%N Nialpdromes: digits in base 4 are in nonincreasing order.
%H Vincenzo Librandi, <a href="/A023760/b023760.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[#, 4]]] <= 0 &] (* _Vincenzo Librandi_, Dec 26 2012 *)
%t Select[Range[0, 250], GreaterEqual@@IntegerDigits[#, 4] &] (* _Ray Chandler_, Jan 06 2014 *)
%Y Cf. A023786 (subset), A031999 (slightly different version).
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
