Revision as of 22:46, 28 July 2021 (view source) Laurence (talk \| contribs) (Added Fōrmulæ solution) ← Older edit		Revision as of 17:20, 13 August 2021 (view source) Shuisman (talk \| contribs) m (→‎{{header\|Mathematica}}) Newer edit →
Line 1,626: </pre> =={{header\|Mathematica}}/{{header\|Wolfram Language}}== <lang Mathematica>popcount[n_Integer] := IntegerDigits[n, 2] // Total perniciousQ[n_Integer] := popcount[n] // PrimeQ

Pernicious numbers: Difference between revisions

Pernicious numbers (view source)