|
|
A032902
|
|
Numbers whose base-5 representation Sum_{i=0..m} d(i)*5^i has d(0) <= d(1) >= d(2) <= ...
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|