A167700 Number of partitions of n into distinct odd squares.
1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 0
Examples
a(50) = #{49+1} = 1;
a(130) = #{121+9, 81+49} = 2.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
- Vaclav Kotesovec, Graph - The asymptotic ratio
- Index entries for sequences related to sums of squares.
Programs
-
Haskell
a167700 = p a016754_list where p _ 0 = 1 p (q:qs) m = if m < q then 0 else p qs (m - q) + p qs m -- Reinhard Zumkeller, Mar 15 2014
-
Mathematica
nmax = 100; CoefficientList[Series[Product[1 + x^((2*k-1)^2), {k, 1, Floor[Sqrt[nmax]/2] + 1}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Sep 18 2017 *)
Formula
a(n) = f(n,1,8) with f(x,y,z) = if x
G.f.: Product_{k>=0} (1 + x^((2*k+1)^2)). - Ilya Gutkovskiy, Jan 11 2017
a(n) ~ exp(3 * 2^(-7/3) * Pi^(1/3) * (sqrt(2)-1)^(2/3) * Zeta(3/2)^(2/3) * n^(1/3)) * (sqrt(2)-1)^(1/3) * Zeta(3/2)^(1/3) / (2^(7/6) * sqrt(3) * Pi^(1/3) * n^(5/6)). - Vaclav Kotesovec, Sep 18 2017
A167662 Records for partitions into odd squares, cf. A167661.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 35, 36, 37, 38, 39, 40, 41, 44, 45, 46, 47, 48, 49, 51, 52, 55, 56, 57, 58, 59, 60, 62, 63, 66, 67, 68, 69, 71, 72, 73, 76, 78, 81, 82, 83, 84, 87, 89, 90, 93
Offset: 1
Keywords
Crossrefs
Cf. A167701.
A167702 Where records occur for partitions into distinct odd squares, cf. A167700.
0, 130, 251, 299, 420, 588, 645, 660, 741, 885, 1005, 1045, 1174, 1221, 1245, 1270, 1366, 1390, 1485, 1486, 1510, 1606, 1630, 1726, 1750, 1774, 1846, 1966, 2014, 2110, 2135, 2255, 2303, 2350, 2375, 2470, 2471, 2495, 2591, 2615, 2639, 2711, 2735, 2807
Offset: 1
Comments