%我#13 2023年10月27日22:00:45

%第23,54,59,84114138149172177232257281293311355392417422页，

%电话：434445481506561596601644656686715745763775798809853，

%电话：8649449559799841013101810611072114011641187119212221227

%N编号N，使A053230（N）=4。

%H Reinhard Zumkeller，n的表，n=1..10000的a（n）</a>

%p with（numtheory）：f:=[seq（`if`（（sigma（i+1）>sigma）（i）），i，print（）），i=1..8000）]；

%p seq（`if`（f[i+1]-f[i]=4，i，print（）），i=1..3000）；

%o（哈斯克尔）

%o导入数据。列表（元素索引）

%o a053236 n=a053236_列表！！（n-1）

%o a053236_list=映射（+1）$elemIndices 4 a053230_list

%o——Reinhard Zumkeller，2012年5月7日

%Y参见A000203、A053224、A053230、A053231、A053232、A0532.33、A053235、A05237。

%K nonn公司

%O 1,1号机组

%A_Asher Auel_，2000年1月10日