%I#6 2018年3月3日12:06:56
%S 2,4,0,7,2,4,2,1,0,16,8,1,8,16,14,8,8,0,2,30,18,28,14,4,8,16.28,
%T 19,6,16,29,34,8,40,24,8,16,14,8,4,4,0,49,62,52,32,4,8,46,17,20,65,
%U 22,32,16,62,64,32,64,41,16,32,64,48,70,48,24,32,22,74,84,8,16,32,52
%N除法2^N/c[N]的余数,其中c[N]=A002808,第N个组合。
%t表[Mod[2^j,FixedPoint[j+PrimePi[#]+1&,j]],{j,1,128}]
%t模块[{c=Select[Range[200],CompositeQ],len},len=Length[c];表[PowerMod[2,n,c[[n]]],{n,len}]](*哈维·P·戴尔,2018年3月3日*)
%Y参见A000079、A002808、A015910、A062173、A064367、A073797-A073799。
%K nonn公司
%O 1,1号机组
%A _Labos Elemer,2002年8月12日
|