OFFSET
1,1
COMMENTS
A131643 (cubes that are also sums of three or more consecutive positive cubes) is a sparse subsequence: only 17 of its terms appear in the first 1000 terms of A265845. - Jonathan Sondow, Jan 10 2016
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1) = 216 = 6^3 = 3^3 + 4^3 + 5^3;
a(2) = 8000 = 20^3 = 11^3 + 12^3 + 13^3 + 14^3;
a(3) = 33075 = 11^3 + 12^3 + 13^3 + 14^3 + 15^3 + 16^3 + 17^3 + 18^3 + 19^3 = 15^3 + 16^3 + 17^3 + 18^3 + 19^3 + 20^3.
PROG
(Haskell)
import Data.Set (singleton, deleteFindMin, insert, Set)
a265845 n = a265845_list !! (n-1)
a265845_list = f (singleton (1, (1, 1))) 0 0 where
f s z z' = if y == z && z' /= z then y : f s'' y z else f s'' y z
where s'' = (insert (y', (i, j')) $
insert (y' - i ^ 3 , (i + 1, j')) s')
y' = y + j' ^ 3; j' = j + 1
((y, (i, j)), s') = deleteFindMin s
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 16 2015
STATUS
approved