hoffmanc/sample.r

Created July 7, 2010 17:41

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/hoffmanc/466985.js"></script>
Save hoffmanc/466985 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

	D <- function(n) sum((1:(n-1))[n%%1:(n-1)==0])==n
	(2:9000)[sapply(2:9000,D)]

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment