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
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000
Programs
-
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 *)
Comments