|
%I #10 Nov 19 2017 01:38:28
%S 1,26,189,296,1685,4662,1141,2648,4977,27250,54461,43272,134017,26138,
%T 250605,84688,456671,202302,265867,439480,1176147,1650286,2251079,
%U 684504,3327175,607516,1447173,1382528,5819633,7471710,834489,2306528
%N Beginning with 1, least multiple of n such that every partial sum is a perfect cube.
%t 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 *)
%Y Cf. A090961.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Jan 02 2004
%E More terms from _David Wasserman_, Feb 22 2006
|
