A032902 Numbers whose base-5 representation Sum_{i=0..m} d(i)*5^i has d(0) <= d(1) >= d(2) <= ...
1, 2, 3, 4, 5, 6, 10, 11, 12, 15, 16, 17, 18, 20, 21, 22, 23, 24, 30, 31, 35, 36, 37, 40, 41, 42, 43, 45, 46, 47, 48, 49, 60, 61, 62, 65, 66, 67, 68, 70, 71, 72, 73, 74, 90, 91, 92, 93, 95, 96, 97, 98, 99, 120, 121, 122, 123, 124, 125, 130
Offset: 1
Programs
-
PARI
is(n) = my(d = digits(n, 5), t=1, i); forstep(i=#d, 2, -1, if(d[i] * t > d[i-1] * t, return(0)); t=-t); 1 \\ David A. Corneth, Jan 29 2019