Product of min and max prime factors: Difference between revisions
Product of min and max prime factors (view source)
Revision as of 09:12, 1 November 2022
, 1 year ago→{{header|Haskell}}
Line 1,067:
import Data.Numbers.Primes (primeFactors)
import Text.Printf (printf)
----------- PRODUCT OF MIN AND MAX PRIME FACTORS ---------
oeisA066048 :: [Integer]
f = ((*) . head <*> last) . primeFactors▼
oeisA066048 = 1 : fmap f [2 ..]
where
▲ f = ((*) . head <*> last) . primeFactors
--------------------------- TEST -------------------------
main :: IO ()
main = putStrLn $
table " " $ (chunksOf 10 . take 100) $
------------------------- DISPLAY ------------------------
|