A037808 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A037808

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

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0

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

OFFSET

1,1

LINKS

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

MAPLE

A037808 := proc(n)

a := 0 ;

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

for i from 2 to nops(dgs) do

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

a := a+1 ;