%I#10 2023年7月23日18:24:26

%S 0,0,0,1,0,0，1,0，0,1,1,1,0,1,1,1,1,1,1,1,1,1,2,1,1,1，

%T 1,1,1,0,0,1,1,1,1,0,11,1,1,1,2,1,1,1,1,1,1,11,2,2,1,1,2,2,1,1,2,2,1,1，

%U 0、1、1、1、1、2、1、1、2、1、1、2、1、1、1、1、2、1、2

%N i的个数，使得d（i）>=d（i-1），其中Sum_{i=0..m}d（ii）*5^i是N的基-5表示。

%p A037828:=程序（n）

%p a：=0；

%p-dgs:=转换（n，基数，5）；

%p代表i从2到nops（dgs）do

%p如果op（i，dgs）>=op（i-1，dgs），则

%pa:=a+1；

%p end if；

%p端do：

%p a；

%p end程序：#_R.J.Mathar_，2015年10月16日

%Y参考A037812。

%K nonn，基础

%O 1,25号机组

%百灵鸟金伯利_

%R.J.Mathar_于2015年10月16日更正的E登录名