spec :: Spec
spec = describe "A328190" $
  it "correctly computes the first 20 elements" $
    take 20 (map a328190 [1..]) `shouldBe` expectedValue where
      expectedValue = [1, 3, 7, 5, 11, 8, 17, 10, 22, 13, 27, 15, 31, 18, 37, 20, 41, 23, 47, 25]
spec :: Spec
spec = describe "A328190" $
  it "correctly computes the first 20 elements" $
    take 20 (map a328190 [1..]) `shouldBe` expectedValue where
      expectedValue = [1, 3, 7, 5, 11, 8, 17, 10, 22, 13, 27, 15, 31, 18, 37, 20, 41, 23, 47, 25]
spec = describe "A328190" $
  it "correctly computes the first 20 elements" $
    take 20 (map a328190 [1..]) `shouldBe` expectedValue where
      expectedValue = [1, 3, 7, 5, 11, 8, 17, 10, 22, 13, 27, 15, 31, 18, 37, 20, 41, 23, 47, 25]