The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A087154

Number of partitions of n into distinct nonsquares.
(history; published version)

#18 by Vaclav Kotesovec at Fri Dec 30 09:51:09 EST 2016

STATUS

editing

approved

#17 by Vaclav Kotesovec at Fri Dec 30 07:40:37 EST 2016

CROSSREFS

Cf. A225045, A280264.

#16 by Vaclav Kotesovec at Fri Dec 30 07:21:03 EST 2016

FORMULA

a(n) ~ exp(Pi*sqrt(n/3) - 3^(1/4) * (sqrt(2)-1) * Zeta(3/2) * n^(1/4) / 2 - 3*(sqrt(2)-1)^2 * Zeta(3/2)^2 / (32*Pi)) / (2^(3/2) * 3^(1/4) * n^(3/4)). - Vaclav Kotesovec, Dec 30 2016

#15 by Vaclav Kotesovec at Fri Dec 30 05:14:27 EST 2016

LINKS

Vaclav Kotesovec, <a href="/A087154/b087154.txt">Table of n, a(n) for n = 0..10000</a>

#14 by Vaclav Kotesovec at Thu Dec 29 17:22:57 EST 2016

MATHEMATICA

nmax = 100; CoefficientList[Series[Product[(1 + x^k)/(1 + x^(k^2)), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Dec 29 2016 *)

STATUS

approved

editing

#13 by Charles R Greathouse IV at Fri May 10 12:45:26 EDT 2013

FORMULA

G.f.: Product_{m>0} (1+x^m)/(1+x^(m^2)). - _Vladeta Jovovic (vladeta(AT)eunet.rs), _, Jul 31 2004

Discussion

Fri May 10

12:45

OEIS Server: https://oeis.org/edit/global/1911

#12 by Reinhard Zumkeller at Thu Apr 25 16:04:29 EDT 2013

STATUS

editing

approved

#11 by Reinhard Zumkeller at Thu Apr 25 13:28:17 EDT 2013

PROG

(Haskell)

a087154 = p a000037_list where

p _ 0 = 1

p (k:ks) m = if m < k then 0 else p ks (m - k) + p ks m

-- Reinhard Zumkeller, Apr 25 2013

CROSSREFS

Cf. A225045.

STATUS

approved

editing

#10 by Russ Cox at Fri Mar 30 18:50:37 EDT 2012

AUTHOR

_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, Aug 21 2003

Discussion

Fri Mar 30

18:50

OEIS Server: https://oeis.org/edit/global/246

#9 by Russ Cox at Fri Mar 30 17:35:15 EDT 2012

EXTENSIONS

Zero term added by _Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), _, Jan 25 2010

Discussion

Fri Mar 30

17:35

OEIS Server: https://oeis.org/edit/global/165