Anonymous user
Mian-Chowla sequence: Difference between revisions
→{{header|Haskell}}
Line 661:
nextMC :: (Set Int, [Int], Int) -> (Set Int, [Int], Int)
nextMC (sumSet, mcs, n) =
let valid x =
m = until valid succ n
in (foldr insert sumSet ((2 * m) : fmap (m +) mcs), m : mcs, m)
Line 680:
Terms 91 to 100 of the Mian-Chowla series:
[22526,23291,23564,23881,24596,24768,25631,26037,26255,27219]</pre>
=={{header|JavaScript}}==
| |||