OFFSET
1,2
MATHEMATICA
Fold[Append[#1, Block[{k = 1, m, s = Accumulate@ #1}, While[! AllTrue[Append[s, Last@ s + Set[m, k #2]], IntegerQ@ Power[#, 1/3] &], k++]; m]] &, {1}, Range[2, 28]] (* Michael De Vlieger, Nov 18 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jan 02 2004
EXTENSIONS
More terms from David Wasserman, Feb 22 2006
STATUS
approved