OFFSET
1,3
COMMENTS
Related to "Liouville's Last Theorem".
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
R. P. Agarwal, Lambert series and Ramanujan, Prod. Indian Acad. Sci. (Math. Sci.), v. 103, n. 3, 1993, pp. 269-293. see p. 273.
George E. Andrews, Stacked lattice boxes, Ann. Comb. 3 (1999), 115-130. See L_5(n).
E. T. Bell, The form wx+xy+yz+zu, Bull. Amer. Math. Soc., 42 (1936), 377-380.
FORMULA
EXAMPLE
G.f. = x^2 + 4*x^3 + 9*x^4 + 16*x^5 + 26*x^6 + 36*x^7 + 53*x^8 + 64*x^9 + 90*x^10 + ...
a(3) = 4 since 3 = 1*1 + 1*0 + 0*1 + 1*2 = 1*1 + 1*0 + 0*2 + 2*1 = 1*2 + 2*0 + 0*1 + 1*1 = 2*1 + 1*0 + 0*1 + 1*1 are all 4 representations of 3.
MAPLE
with(numtheory); f:=n->sigma[2](n)-n*sigma[0](n);
MATHEMATICA
a[n_] := DivisorSigma[2, n] - n*DivisorSigma[0, n]; Table[a[n], {n, 51}] (* Jean-François Alcover, Aug 31 2011 *)
PROG
(PARI) {a(n) = if( n<1, 0, sigma( n, 2) - n * sigma( n, 0))}
(Haskell)
a189835 n = a001157 n - a038040 n -- Reinhard Zumkeller, Jan 21 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael Somos, Apr 28 2011
EXTENSIONS
Added references, comment, Maple program, cross-reference to A191822. - N. J. A. Sloane, Jun 17 2011
STATUS
approved