Chowla numbers: Difference between revisions

(→‎{{header|J}}: simpler)
Line 517:
=={{header|J}}==
'''Solution:'''
<lang j>uniqFactorschowla=: (}.@i.@#>: -.&0@~. >:@,@(*#.~/\.~&.q: , */\ NB.) ])@q:sum of factors - (n + 1)
chowla=: +/@uniqFactors
 
intsbelow=: (2 }. i.)"0
Line 563 ⟶ 562:
37 0
countPrimesbelow 100 1000 10000 100000 1000000 10000000
25 168 1229 9592 78498 664579
findPerfectsbelow 35000000
6 28 496 8128 33550336</lang>
 
=={{header|Julia}}==
<lang julia>using Primes, Formatting
892

edits