Data update
This commit is contained in:
parent
81fd053722
commit
52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
5
Task/Proper-divisors/Uiua/proper-divisors.uiua
Normal file
5
Task/Proper-divisors/Uiua/proper-divisors.uiua
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
ADx ← |1 ⨬(◴⊂⊂⊃(⊙∘|/⊂⊞×)\×°□⊙ADx°⊂|[1])=0⧻.
|
||||
ADs ← ⊏⊸⍏ADx⊕□⊸⊛°/× # All divisors including 1, n.
|
||||
PDs ← ↘¯1ADs # Proper Divisors.
|
||||
≡(□PDs)+1⇡10 # Proper Divisors of 1 to 10.
|
||||
⟜(▽=)/↥.≡(⧻PDs).+1⇡2e4 # Numbers below 20k with most PDs.
|
||||
Loading…
Add table
Add a link
Reference in a new issue