A037826 - OEIS

A037826

Number of i such that d(i) >= d(i-1), where Sum_{i=0..m} d(i)*3^i is the base-3 representation of n.

0, 0, 1, 1, 0, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 2, 3, 2, 2, 2, 2, 1, 2, 2, 2, 3, 2, 2, 3, 3, 2, 2, 2, 2, 2, 1, 1, 2, 2, 1, 2, 2, 2, 3, 2, 2, 2, 2, 1, 2, 2, 2, 3, 2, 2, 3, 3, 2, 2, 2, 2, 3, 2, 2, 3, 3, 2, 3, 3, 3, 4, 3, 3, 3, 3, 2, 3, 3, 3, 3

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,9

LINKS

Table of n, a(n) for n=1..90.

MAPLE

A037826 := proc(n)

a := 0 ;

dgs := convert(n, base, 3);

for i from 2 to nops(dgs) do

if op(i, dgs)>=op(i-1, dgs) then

a := a+1 ;