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-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Sphenic-numbers/Mathematica/sphenic-numbers.math Normal file
View file

@ -0,0 +1,3 @@
Select[Select[{#,Catenate@MapApply[ConstantArray,FactorInteger[#]]}&/@Range[999],Last/*Length/*EqualTo[3]],Last/*DuplicateFreeQ][[All,1]]
Select[Partition[Select[Select[{#,Catenate@MapApply[ConstantArray,FactorInteger[#]]}&/@Range[9999],Last/*Length/*EqualTo[3]],Last/*DuplicateFreeQ][[All,1]],3,1],MatchQ[#-First[#],{0,1,2}]&]