This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
916132832 is equal to 62^5. 31^5 + 961^3 = 62^5.
1729^4 = 1729^3 + 20748^3 = 15561^3 + 17290^3.
for(i=1, 10^5, x=i^4; c=0; for(j=1, floor(sqrtn(x/2,3)), if(ispower(x-j^3,3), c++)); if(c>1, print(i" "c))) \\ Donovan Johnson, Aug 03 2009
a(1) = 7449150177 = 1953^3 = 1116^3 + 279^4 = 217^4 + 1736^3; a(2) = 8936757492481 = 1729^4 = 1729^3 + 20748^3 = 15561^3 + 17290^3; see link for more examples and more info.
import qualified Data.Set as Set (split, filter)
import Data.Set (Set, empty, size, insert, member)
a226950 n = a226950_list !! (n-1)
a226950_list = f a076467_list empty where
f (x:xs) s | size s'' <= 1 = f xs (x `insert` s)
| otherwise = x : f xs (x `insert` s)
where s'' = Set.filter ((`member` s) . (x -)) s'
(s', _) = Set.split (x `div` 2) s
Comments