OFFSET
1,1
LINKS
Matt Parker's YouTube Video, The A4 Paper Puzzle
EXAMPLE
4^(1/32) = 1.0442737824274138...
Rearranging 442737 in ascending order gives 234477.
1191^(1/32) = 1.2477346... -> 247734 -> 234477;
2340^(1/32) = 1.2743478... -> 274347 -> 234477.
PROG
(Haskell)
import Data.List
hash :: Double -> Inthash = read . sort . take 6 . filter (/='0') . drop 1 . dropWhile (/='.') . show . (** 0.03125)
main :: IO ()main = print $ map (floor . fst) . filter ((==234477) . snd) $ map (\x -> (x, hash x)) [2..1000000]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Dan Dart, Aug 25 2019
STATUS
approved