A056222 Image of partition numbers (A000041) under "little Hankel" transform that sends [c_0, c_1, ...] to [d_0, d_1, ...] where d_n = c_n^2 - c_{n+1}*c_{n-1}.

-1, 1, -1, 4, -6, 16, -17, 34, -24, 84, -98, 273, -194, 449, -209, 1089, -726, 2695, -1295, 5049, -990, 10044, -3125, 23335, -2936, 40516, 3052, 82874, 3553, 171086, 25168, 307395, 104259, 577831, 206819, 1149058, 488114, 2030380, 1156155, 3805389, 2233077, 7109113

Offset

0,4

Links

Stefano Spezia, Table of n, a(n) for n = 0..10000

Mathematica

a[n_]:=PartitionsP[n+1]^2-PartitionsP[n]PartitionsP[n+2]; Array[a, 40, 0] (* Stefano Spezia, Jul 15 2024 *)

Crossrefs

Cf. A000041, A056221.

Sequence in context: A133092 A240034 A302122 * A186201 A138624 A071428

Adjacent sequences: A056219 A056220 A056221 * A056223 A056224 A056225

Keyword

sign

Author

N. J. A. Sloane, Aug 06 2000

Extensions

a(40)-a(41) from Stefano Spezia, Jul 15 2024

Status

approved