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 A217512 #14 Feb 18 2013 13:32:11
%S A217512 1,5,17,29,35,47,71,87,99,123,147,159,167,191,239,275,281,293,329,357,
%T A217512 381,417,441,465,489,525,597,633,657,705,729,741,801,849,885,915,943,
%U A217512 1015,1063,1087,1099,1147,1207,1231,1291,1339,1363,1371,1419,1503,1551
%N A217512 Partial sums of nonzero terms in A005925.
%C A217512 Sizes of clusters of atoms in diamond structure.
%D A217512 N. J. A. Sloane, Theta-Series and Magic Numbers for Diamond and Certain Ionic Crystal Structures, J. Math. Phys., 28 (1987), pp. 1653-1657.
%o A217512 (PARI) lista(m) = {nm = sqrtint(m)+1; T2 = sum(i=0, nm, 2*x^((i+1/2)^2 - 1/4)); T23 = T2^3; T3 = 1+ sum(i=1, nm, 2*x^(i^2)); T4 = subst(T3, x, -x); T33 = T3^3; T334 = sum(i=0, m, polcoeff(T33, i)*x^(4*i)); T43 = T4^3; T434 = sum(i=0, m, polcoeff(T43, i)*x^(4*i)); P = sum(i=0, poldegree(T23), polcoeff(T23,i)*x^(numerator(i+3/4))); D = (P + T334 + T434)/2; s = 0; for (i=0, m, v = polcoeff(D, i); if (v != 0, s += v; print1(s, ", ");););} \\ _Michel Marcus_, Feb 19 2013
%Y A217512 Cf. A005925-A005927, A217512-A217514.
%K A217512 nonn
%O A217512 0,2
%A A217512 _N. J. A. Sloane_, Oct 05 2012
%E A217512 More terms from _Michel Marcus_, Feb 19 2013