vignettes/vignettes_numpack99.R

In mnoro/numpack99: Miscellaneous Functions

## ----echo=FALSE----------------------------------------------------------
source("../R/friendly_numbers.R")
source("../R/factorial_loop.R")

## ------------------------------------------------------------------------
divisors(4680)

## ------------------------------------------------------------------------
sum(divisors(4680))

## ------------------------------------------------------------------------
perfect_number(4680)

## ------------------------------------------------------------------------
x <- 1:1000
x[sapply(x, perfect_number)]

## ------------------------------------------------------------------------
friendly_numbers(220, 284)
friendly_numbers(17296, 18416)
friendly_numbers(172960, 184160)

## ------------------------------------------------------------------------
factorial_loop(10)