# A242310: Ilya Lopatin and Juri-Stepan Gerasimov, May 10 2014
# A000056: _N. J. A. Sloane_
# A051419: Paul L. Chessin (pchess(AT)ix.netcom.com)
# A000045: _N. J. A. Sloane, 1964_
# A169890: _David Applegate_, _Marc LeBrun_ and _N. J. A. Sloane_, Jul 06 2010
# A169888: _N. J. A. Sloane_, Jul 07 2010, based on a letter from _Jean-Claude
# Babois_.
id <- "A169890"
test_that("OEIS sequence A169890 has three authors", {
testthat::expect_equal(id %>%
OEIS_author %>%
length, 3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.