A090960 Beginning with 1, least multiple of n such that every partial sum is a perfect cube.

1, 26, 189, 296, 1685, 4662, 1141, 2648, 4977, 27250, 54461, 43272, 134017, 26138, 250605, 84688, 456671, 202302, 265867, 439480, 1176147, 1650286, 2251079, 684504, 3327175, 607516, 1447173, 1382528, 5819633, 7471710, 834489, 2306528

Offset

1,2

Links

Table of n, a(n) for n=1..32.

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

Cf. A090961.

Sequence in context: A218083 A042312 A181342 * A357178 A262107 A245952

Adjacent sequences: A090957 A090958 A090959 * A090961 A090962 A090963

Keyword

nonn

Author

Amarnath Murthy, Jan 02 2004

Extensions

More terms from David Wasserman, Feb 22 2006

Status

approved