%I#21 2024年3月16日21:01:42
%S 1,1,4128115201433604254252064384619315200280284364800,
%电话68015672524027512370460575178541140377600152355106455552000,
%电话:16783438527143608320060740063241091153920002973485364555099456565652523191660510234804224000392866729043377583554560000
%N k的整数值/S(k),其中S(k。
%C对于n>=8,a(n)以0或5结尾。
%H Jayanta Basu,n的表,n=0..100的a(n)</a>
%F形式为k的整数/(k+1)/2)^2,对于k奇数和k/(k*(k+2)/4)表示k偶数。[由Jon E.Schoenfield_2024年3月16日更正]
%e 6-->6!!=48; 6 + 4 + 2 = 12; 48/12 = 4.
%e 17-->17!!=34459425; 17 + 15 + 13 + 11 + 9 + 7 + 5 + 3 + 1 = 81; 34459425/81=425425。
%pP:=proc(n)局部a,i,j,k,w;对于i从1乘1到n的dok:=i;w: =i-2;当w>0时,做k:=k*w;w: =w-2;od;j: =i;w: =i-2;当w>0时,做j:=j+w;w: =w-2;od;a: =k/j;如果trunc(a)=a,则打印(a)fi;od;结束:P(100);
%p#第二个Maple程序:
%pf:=n->`如果`(irem(双阶乘(n),floor((n+1)^2/4),'r')=0,r,[][]):
%p映射(f,[1..50])[];#_阿洛伊斯·海因茨,2024年3月16日
%t选择[Table[Times@@(t=If[OddQ[n],Range[1,n,2],Range[2])/Plus@@t,{n,41}],IntegerQ](*_Jayanta Basu_,2013年8月12日*)
%Y参见A108552、A000290、A005408、A130319。
%Y参考A002620、A006882。
%K简单,无
%0、3
%A _Paolo P.Lava和Giorgio Balzarotti,2007年5月23日
|