|
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 105, 106, 107, 108, 109, 20, 21, 22, 23, 24, 205, 206, 207, 208, 209, 30, 31, 32, 33, 34, 305, 306, 307, 308, 309, 40, 41, 42, 43, 44, 405, 406, 407, 408, 409, 50, 51, 52, 53, 54, 505, 506, 507
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) >= n with equality iff all the digits of the decimal representation of n, except possibly the first one, are in the range 0...4. - Rémy Sigrist, Dec 18 2019
|
|
MAPLE
|
a:= n-> (s-> parse(cat(seq(parse(s[i])*2, i=1..length(s))))/2)(""||n):
|
|
PROG
|
(PARI) a(n, base=10) = my (d=digits(n, base), v=0); for (i=1, #d, v = v*base^max(1, #digits(2*d[i], base)) + 2*d[i]); v/2 \\ Rémy Sigrist, Dec 18 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|