Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 4500 articles have referenced us, often saying "we would not have discovered this result without the OEIS".
Table of n, a(n) for n=1..90.
A037823 := proc(n)
a := 0 ;
dgs := convert(n, base, 8);
for i from 2 to nops(dgs) do
if op(i, dgs)>op(i-1, dgs) then
a := a+1 ;
end proc: # R. J. Mathar, Oct 16 2015
Sequence in context: A044938 A072401 A064873 * A115790 A025460 A169673
Adjacent sequences: A037820 A037821 A037822 * A037824 A037825 A037826
Sign in name corrected. - R. J. Mathar, Oct 16 2015