10 'Hoen data 20 point 10 30 dim Bern(50) 40 dim Zr(50) 50 dim Br(50) 60 dim Ar(38) 70 Zr(0)=1 80 Zr(1)=1//2 90 Zr(2)=1//12 100 Zr(4)=1//720 110 Zr(6)=1//30240 120 Zr(8)=1//1209600 130 Zr(10)=1//47900160 140 Zr(12)=691//1307674368000 150 Zr(14)=1//74724249600 160 Zr(16)=3617//10670622842880000 170 Zr(18)=43867//5109094217170944000 180 Zr(20)=1222277//5620003638888038400000 190 Zr(22)=77683//14101100039391805440000 200 Zr(24)=236364091//1693824136731743669452800000 210 Zr(26)=657931//186134520519971831808000000 220 Zr(28)=3392780147//37893265687455865519472640000000 230 Zr(30)=14165278892375563//6247804586933880775014170838958080000000 240 Zr(32)=484523219957202083//8451575659416013266564623825790566400000000 250 Zr(34)=114854967421275799//79686284788779553656180738928882483200000000 260 Zr(36)=25265508368275388380329//713687897550962274046559057609636873685504000000000 270 Zr(38)=3358402522722262198911//4282137385305779284279354345657815242113024000000000 'num 18584025... 280 Ar(0)=1:Ar(1)=1//2 290 for N=2 to 38 step 2 300 Ar(N)=Ar(0)//!(N+1)-Ar(1)//!(N) 310 for M=2 to N-2 step 2 320 Ar(N)=Ar(N)+(-1)^(M\2+1)*Ar(M)//!(N+1-M) 330 next M 340 Ar(N)=abs(Ar(N)):if N=30 then Ar(N)=Zr(N) 350 next N 360 for N=2 to 38 step 2 370 print N,Zr(N)/Ar(N) 380 next N