A258265 Numbers having more than one representation as a sum of the minimal number of triangular numbers, A000217.

16, 17, 19, 23, 26, 31, 32, 33, 35, 40, 41, 42, 44, 46, 47, 51, 52, 54, 56, 59, 62, 63, 68, 71, 72, 74, 75, 76, 77, 80, 81, 82, 85, 86, 89, 94, 95, 96, 98, 103, 104, 106, 107, 109, 111, 113, 116, 117, 118, 121, 122, 123, 124, 125, 126, 128, 129, 131, 133, 134

Offset

1,1

Comments

A258257(a(n)) > 1.

Complement of A258264.

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Mathematica

t[n_] := n*(n + 1)/2; ok[n_] := Block[{k = 1, t, tt = t /@ Range[Sqrt[2*n]]}, While[{} == (r = IntegerPartitions[n, {k}, tt]), k++]; 1 < Length@r]; Select[ Range@ 1000, ok] (* Giovanni Resta, Jun 09 2015 *)

Crossrefs

Cf. A258257, A258264.

Sequence in context: A326455 A145449 A138599 * A261344 A007636 A241751

Adjacent sequences: A258262 A258263 A258264 * A258266 A258267 A258268

Keyword

nonn

Author

Martin Renner, May 25 2015

Status

approved