|
PROG
|
(Haskell)
a215403 n k = a215403_list !! (n-1)
a215403_list = map (foldr (\d v -> 10 * v + d) 0) $
concatMap (\x -> map (x :) [plut', nept']) [4..] where
plut' = [1, 1, 2, 2, 2, 3, 2, 1, 1, 2, 1, 1, 2, 2, 2, 1, 2, 2, 2, 3, 1, 1, 2, 2, 1, 3]
nept' = [1, 1, 2, 2, 3, 3, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 1, 2, 2, 2, 1, 1, 3, 1]
|