

PLEASE HELP

I actually want to do the following:

a[j] = (1/(j!))*Π (i-1-d), j = 500, Π means product i = 1 to
j

 

Yet, j! will stop at 170 and Π (i-1-d) at 172; so, a[j] will
not exceed 170.

I would like to have at least 200 a[j]. 

 

WHAT SHOULD I DO?

 

PLEASE SEE MY CODE FOR DETAIL!!


####################################################
R CODE:
###################################################



d = .25

# generate j!
v=j=1
for (i in 1:200){
v[i] = i
    for (i in 2:200){
j[1]=1
j[i] = j[i-1]*v[i]
    }
}
j

# generate aj
l=A=a=0
for (k in 1:200){
l[k] = (k-1-d)
  for (i in 2:200){
    A[1] = l[1]
    A[i] = A[i-1]*l[i]
     for ( i in 1:200){
  a[i]= (1/j[i])*A[i]
    }
      
    }
}
a

######################################## END CODE ##################
#####################################################################


With GOD, everything is POSSIBLE.

Avec DIEU, tout est POSSIBLE.


      
	[[alternative HTML version deleted]]

