aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Repunit-primes/R/repunit-primes.r Normal file
View file

@ -0,0 +1,8 @@
library(gmp)
nth_repunit <- function(n, base) (as.bigz(base)^n-1)/(base-1)
repunit_primes <- function(base) which(isprime(nth_repunit(1:1000, base))!=0)
primes_list <- lapply(2:16, repunit_primes)
names(primes_list) <- sapply(2:16, function(k) paste("Base", k))
for(i in 1:15) if(length(primes_list[[i]])==0) primes_list[[i]] <- "None"
print(primes_list, quote=FALSE)