authorperref.list <- bibentry.list$author
authornameperref.list <- lapply(authorperref.list, format)
##Some authors will occur in the paper more than once
authornameuniqueperref.list <- lapply(authornameperref.list, unique)
##
authors.vector <- unlist(authornameuniqueperref.list)
authors.table <- table(authors.vector)
sort(authors.table[which(authors.table >= 3)], decreasing=FALSE)