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 A238017 #31 Mar 10 2014 08:39:52 %S A238017 0,1,10,10,55,-1,210,120,120,1485,2145,-1,2080,-1,-1,56616,1326,12561, %T A238017 -1,1540,1540,21736,-1,-1,52650,16653,4950,26796,10440,12880,7750,-1, %U A238017 -1,7140,7140,154290,-1,11476,-1,214840,-1,-1,207690,23252790,-1,-1,6895041,-1,750925 %N A238017 Least triangular number representable as a sum of n consecutive triangular numbers, or -1 if no such triangular number exists. %e A238017 a(5) = 55 because 55 is the least triangular number representable as a sum of five consecutive triangular numbers: 55 = 3 + 6 + 10 + 15 + 21. %e A238017 a(7) = 210 because 210 is the least triangular number representable as a sum of seven consecutive triangular numbers: 210 = 10 + 15 + 21 + 28 + 36 + 45 + 55. %e A238017 10 appears twice because 10 = 1 + 3 + 6 and 10 = 0 + 1 + 3 + 6. %t A238017 a[1] = 0; a[n_] := Block[{t, x, y, s = Reduce[n*(-1+3*t^2+3*t*n+n^2)/6 == x*(x+1)/2 && x>0 && t >= 0, {t, x}, Integers]}, If[s === False, -1, y = Min[x /. List @ ToRules @ Expand[s /. C[1] -> 1]]; y*(y+1)/2]]; Array[a, 49] (* _Giovanni Resta_, Mar 02 2014 *) %Y A238017 Cf. A000217, A129803, A131557, A238018. %K A238017 sign %O A238017 1,3 %A A238017 _Alex Ratushnyak_, Feb 17 2014 %E A238017 a(6) and a(12)-a(49) from _Jon E. Schoenfield_ and _Giovanni Resta_, Mar 04 2014