A037821 - OEIS

A037821

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

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

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

OFFSET

1,78

LINKS

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

MAPLE

A037821 := proc(n)

a := 0 ;

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

for i from 2 to nops(dgs) do

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

a := a+1 ;