Skip to content
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
41 lines (27 sloc) 968 Bytes
module Y2017.M03.D17.Exercise where
-- below import available via 1HaskellADay git repository
import Analytics.Theory.Number.Prime
Prime permutations
Problem 49
The arithmetic sequence, 1487, 4817, 8147, in which each of the terms increases
by 3330, is unusual in two ways:
(i) each of the three terms are prime, and,
(ii) each of the 4-digit numbers are permutations of one another.
There are no arithmetic sequences made up of three 1-, 2-, or 3-digit primes,
exhibiting this property, but there is one other 4-digit increasing sequence.
What 12-digit number do you form by concatenating the three terms in this
permutationOf :: Prime -> Prime -> Bool
permutationOf p1 p2 = undefined
>>> permutationOf 1013 1103
>>> permutationOf 1013 1123
mashPermPrimes :: [Prime] -> String
mashPermPrimes [p1, p2, p3] = undefined
-- So, other than "148748178147", what's your answer?
You can’t perform that action at this time.