This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A258265 #10 Jun 16 2015 14:06:32 %S A258265 16,17,19,23,26,31,32,33,35,40,41,42,44,46,47,51,52,54,56,59,62,63,68, %T A258265 71,72,74,75,76,77,80,81,82,85,86,89,94,95,96,98,103,104,106,107,109, %U A258265 111,113,116,117,118,121,122,123,124,125,126,128,129,131,133,134 %N A258265 Numbers having more than one representation as a sum of the minimal number of triangular numbers, A000217. %C A258265 A258257(a(n)) > 1. %C A258265 Complement of A258264. %H A258265 Giovanni Resta, <a href="/A258265/b258265.txt">Table of n, a(n) for n = 1..10000</a> %t A258265 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 *) %Y A258265 Cf. A258257, A258264. %K A258265 nonn %O A258265 1,1 %A A258265 _Martin Renner_, May 25 2015