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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Pernicious-numbers/Mathematica/pernicious-numbers-1.math Normal file
View file

@ -0,0 +1,17 @@
popcount[n_Integer] := IntegerDigits[n, 2] // Total
perniciousQ[n_Integer] := popcount[n] // PrimeQ
perniciouscount = 0;
perniciouslist = {};
i = 0;
While[perniciouscount < 25,
If[perniciousQ[i], AppendTo[perniciouslist, i]; perniciouscount++];
i++]
Print["first 25 pernicious numbers"]
perniciouslist
(*******)
perniciouslist2 = {};
Do[
If[perniciousQ[i], AppendTo[perniciouslist2, i]]
, {i, 888888877, 888888888}]
Print["Pernicious numbers between 888,888,877 and 888,888,888 (inclusive)"]
perniciouslist2

1
Task/Pernicious-numbers/Mathematica/pernicious-numbers-2.math Normal file
View file

@ -0,0 +1 @@
perniciousQ[n_Integer] := PrimeQ@Total@IntegerDigits[n, 2]

1
Task/Pernicious-numbers/Mathematica/pernicious-numbers-3.math Normal file
View file

@ -0,0 +1 @@
n = 0; NestWhile[Flatten@{#, If[perniciousQ[++n], n, {}]} &, {}, Length@# < 25 &]

1
Task/Pernicious-numbers/Mathematica/pernicious-numbers-4.math Normal file
View file

@ -0,0 +1 @@
Cases[Range[888888877, 888888888], _?(perniciousQ@# &)]