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 A035282 #24 Jul 08 2025 21:31:38
%S A035282 1,5,6,10,24,21,40,30,31,60,64,50,84,120,60,50,144,120,124,85,144,200,
%T A035282 160,126,91,180,240,240,155,204,220,300,410,320,156,264,280,210,360,
%U A035282 300,304,384,420,170,400,504,360,300,364,384,250,400,504,960,424,720,310
%N A035282 Expansion of zeta function of icosian ring (nonzero terms).
%C A035282 Let zetaI(s) be the zeta function of icosian ring: zetaI(s) = zetaQ(tau)(2s)*zetaQ(tau)(2s-1) where zetaQ(tau)(s) is defined in A035187; then zetaI(s) = Sum_{n>=1} a(n)/n^(2s).
%C A035282 Nonzero terms of A078473. - _Michel Marcus_, Mar 03 2014
%H A035282 Amiram Eldar, <a href="/A035282/b035282.txt">Table of n, a(n) for n = 1..10000</a>
%H A035282 M. Baake and R. V. Moody, <a href="http://dx.doi.org/10.4153/CJM-1999-057-0">Similarity submodules and root systems in four dimensions</a>, Canad. J. Math. (1999), 51 1258-1276.
%H A035282 M. Baake and R. V. Moody, <a href="http://arXiv.org/abs/math/9904028">Similarity submodules and root systems in four dimensions</a>, arXiv:math/9904028 [math.MG], 1999.
%t A035282 f[p_, e_] := Which[p == 5, (5^(e + 1) - 1)/4, (m = Mod[p, 5]) == 2 || m == 3, If[EvenQ[e], (p^(e + 2) - 1)/(p^2 - 1), 0], m == 1 || m == 4, Sum[(k + 1)*(e - k + 1)*p^k, {k, 0, e}]]; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; Select[Array[s, 200], # > 0 &] (* _Amiram Eldar_, May 13 2022 *)
%Y A035282 Cf. A031363, A035187, A078472, A078473.
%K A035282 easy,nonn
%O A035282 1,2
%A A035282 _N. J. A. Sloane_