cp's OEIS Frontend

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.

A283336 Expansion of exp( Sum_{n>=1} -sigma_6(n)*x^n/n ) in powers of x.

This page as a plain text file.
%I A283336 #13 Mar 16 2017 22:46:52
%S A283336 1,-1,-32,-211,-285,5179,44784,162062,-125122,-5187417,-32587255,
%T A283336 -95706881,122837972,3039216222,17745876032,52825817007,-24340390929,
%U A283336 -1256623249600,-7805634068163,-26364952524572,-20649978457115,368666542515083,2777231006764690
%N A283336 Expansion of exp( Sum_{n>=1} -sigma_6(n)*x^n/n ) in powers of x.
%H A283336 Seiichi Manyama, <a href="/A283336/b283336.txt">Table of n, a(n) for n = 0..1000</a>
%F A283336 G.f.: Product_{n>=1} (1 - x^n)^(n^5).
%F A283336 a(n) = -(1/n)*Sum_{k=1..n} sigma_6(k)*a(n-k).
%t A283336 a[n_] := If[n<1, 1,-(1/n) * Sum[DivisorSigma[6, k] a[n - k], {k, n}]]; Table[a[n], {n, 0, 22}] (* _Indranil Ghosh_, Mar 16 2017 *)
%o A283336 (PARI) a(n) = if(n<1, 1, -(1/n) * sum(k=1, n, sigma(k, 6) * a(n - k)));
%o A283336 for(n=0, 22, print1(a(n), ", ")) \\ _Indranil Ghosh_, Mar 16 2017
%Y A283336 Column k=5 of A283272.
%Y A283336 Cf. A023874 (exp( Sum_{n>=1} sigma_6(n)*x^n/n )).
%Y A283336 Cf. exp( Sum_{n>=1} -sigma_k(n)*x^n/n ): A010815 (k=1), A073592 (k=2), A283263 (k=3), A283264 (k=4), A283271 (k=5), this sequence (k=6), A283337 (k=7), A283338 (k=8), A283339 (k=9), A283340 (k=10).
%K A283336 sign
%O A283336 0,3
%A A283336 _Seiichi Manyama_, Mar 05 2017