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 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Repunit-primes/Maxima/repunit-primes.maxima Normal file
View file

@ -0,0 +1,10 @@
repunit(n, base) := (base^n-1)/(base-1)$
repunit_primes(base) := sublist_indices(makelist(repunit(i, base), i, 1, 1000), primep)$
for i from 2 thru 16 do(
sprint("Base", i),
newline(),
rup: repunit_primes(i),
if length(rup) > 0 then apply(sprint, rup) else sprint("None"),
newline()
)$