The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A092362 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A092362

Number of partitions of n^2 into squares greater than 1.
(history; published version)

#16 by Vaclav Kotesovec at Mon Apr 10 12:25:14 EDT 2017

STATUS

editing

approved

#15 by Vaclav Kotesovec at Mon Apr 10 12:24:38 EDT 2017

FORMULA

a(n) ~ exp(3*Pi^(1/3) * Zeta(3/2)^(2/3) * n^(2/3) / 2^(4/3)) * Zeta(3/2)^(4/3) / (2^(11/3) * sqrt(3) * Pi^(5/6) * n^(11/3)). - Vaclav Kotesovec, Apr 10 2017

STATUS

approved

editing

#14 by OEIS Server at Wed Nov 11 10:22:09 EST 2015

LINKS

Alois P. Heinz, <a href="/A092362/b092362_1.txt">Table of n, a(n) for n = 0..500</a>

#13 by Alois P. Heinz at Wed Nov 11 10:22:09 EST 2015

STATUS

editing

approved

Discussion

Wed Nov 11

10:22

OEIS Server: Installed new b-file as b092362.txt.  Old b-file is now b092362_1.txt.

#12 by Alois P. Heinz at Wed Nov 11 10:22:04 EST 2015

LINKS

Alois P. Heinz, <a href="/A092362/b092362_1.txt">Table of n, a(n) for n = 0..250500</a>

STATUS

approved

editing

#11 by Bruno Berselli at Wed Nov 11 09:48:42 EST 2015

STATUS

proposed

approved

#10 by Jean-François Alcover at Wed Nov 11 09:34:17 EST 2015

STATUS

editing

proposed

#9 by Jean-François Alcover at Wed Nov 11 09:34:02 EST 2015

MATHEMATICA

b[n_, i_] := b[n, i] = If[n == 0, 1, If[i<2, 0, b[n, i-1] + If[i^2>n, 0, b[n-i^2, i]]]]; a[n_] := b[n^2, n]; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Nov 11 2015, after Alois P. Heinz *)

STATUS

approved

editing

#8 by Alois P. Heinz at Mon Apr 15 07:16:26 EDT 2013

STATUS

editing

approved

#7 by Alois P. Heinz at Mon Apr 15 07:16:07 EDT 2013

MAPLE

b:=proc(n, i) option remember; `if`(n=0, 1,

`if`(i<2, 0, b(n, i-1) +`if`(i^2>n, 0, b(n-i^2, i))))

end:

a:= n-> b(n^2, n):

seq(a(n), n=0..50); # Alois P. Heinz, Apr 15 2013