login
Nialpdromes: digits in base 3 are in nonincreasing order.
6

%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_