A037830 - OEIS

A037830

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

0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0

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

OFFSET

1,49

LINKS

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

MAPLE

A037830 := proc(n)

a := 0 ;

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

for i from 2 to nops(dgs) do

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

a := a+1 ;