Sequence: smallest number greater than previous term with exactly n divisors: Difference between revisions
Content added Content deleted
Line 306: | Line 306: | ||
sequence_A069654 = go 1 nDivCount |
sequence_A069654 = go 1 nDivCount |
||
where |
where |
||
nDivCount = (,) <*> |
nDivCount = (,) <*> length . nub . divisors <$> [1..] |
||
⚫ | |||
divisorCount = length . nub . divisors |
|||
⚫ | |||
where |
|||
⚫ | |||
⚫ | |||
go t ((n,d):xs) |
go t ((n,d):xs) |
||
| d == t = (t,n):go (succ t) xs |
| d == t = (t,n):go (succ t) xs |