|
%I #22 Apr 03 2014 17:59:51
%S 0,1,2,3,4,6,7,8,9,12,13,18,21,22,24,25,26,27,36,39,40,54,63,66,67,72,
%T 75,76,78,79,80,81,108,117,120,121,162,189,198,201,202,216,225,228,
%U 229,234,237,238,240,241,242,243,324,351,360,363,364,486,567,594
%N Nialpdromes: digits in base 3 are in nonincreasing order.
%H Vincenzo Librandi and Ray Chandler, <a href="/A023759/b023759.txt">Table of n, a(n) for n = 1..1000</a> (first 800 terms from Vincenzo Librandi)
%t Select[Range[0, 4000], Max[Differences[IntegerDigits[#, 3]]] <= 0 &] (* _Vincenzo Librandi_, Dec 26 2012 *)
%t Select[Range[0,600],GreaterEqual@@IntegerDigits[#,3]&] (* _Ray Chandler_, Jan 06 2014 *)
%o (PARI) is(n)=n=digits(n,3); n==vecsort(n,,4) \\ _Charles R Greathouse IV_, Mar 31 2014
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
