%I#12 2023年10月27日22:00:45
%S 5,20,21,29,34,49,50,56,57,65,70,79,80,94,99108109123133145,
%电话146154155170171177178198200201227230231239244253254,
%电话:259260274277278280289290304308308310327332340341347
%N N,其值不等于2,出现在A053238的展开式中。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%p with(numtheory):f:=[seq(`if`((sigma(i)>sigma)(i+1)),i,print()),i=1..5000)];
%p seq(`if`(f[i+1]-f[i]<>2,i,print()),i=1..1000);
%o(哈斯克尔)
%o导入数据。列表(findIndices)
%o a053240 n=a053240_列表!!(n-1)
%o a053240_list=映射(+1)$findIndices(/=2)a053238_list
%o--_Reinhard Zumkeller,2011年10月16日
%Y参见A000203、A053226、A053238、A053399、A053241(补遗)、A05324、A05343、A053444、A05324.5。
%K nonn公司
%O 1,1号机组
%A_Asher Auel_,2000年1月10日
|