##---The prime generator doesn't terminate, so look for values.
#start with 10, and result includes a series of values 10^p , p prime
fracp10 <- fracMake(c(7,99,13,39,36,10,49,7,1,91), c(3,98,49,35,91,143,13,11,2,1))
p10 <-fracDo(10,fractions = fracp10, tries = 1000)
foundp10 <-fracAns(p10,logbase = 10)
# [1] 1 2 3 5 7 # sorry about the "1" :-)
Run the code above in your browser using DataLab