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 A178191 #10 Jul 21 2016 17:14:50
%S A178191 1,344,825945,13881657616,1633163136864785,1344980069223035633256,
%T A178191 7753542448037025041629822057,312883404805904029979088478768109600,
%U A178191 88381817680515537538446482833052972519290401
%N A178191 Numerators of sum (1/7)^((k^2+3k)/2) from k=1 to n.
%C A178191 Series of the kind m^((k^2+3k)/2) from k=1 to n was studied by Bernoulli and Euler.
%H A178191 Vincenzo Librandi, <a href="/A178191/b178191.txt">Table of n, a(n) for n = 1..45</a>
%t A178191 aa = {}; m = 1/7; sum = 0; Do[sum = sum + m^((n + 3) n/2); AppendTo[aa, Numerator[sum]], {n, 1, 20}]; aa (*Artur Jasinski*)
%t A178191 Numerator[Accumulate[Table[(1/7)^((n^2+3n)/2),{n,10}]]] (* _Harvey P. Dale_, Jul 21 2016 *)
%o A178191 (PARI) a(n) = numerator(sum(k=1, n, (1/7)^((k^2+3*k)/2))); \\ _Michel Marcus_, Sep 09 2013
%Y A178191 Cf. A178184-A178193.
%K A178191 frac,nonn
%O A178191 1,2
%A A178191 _Artur Jasinski_, May 21 2010