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

Author

N. J. A. Sloane, Aug 06 2000

Keywords

• sign

Links

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

Crossrefs

Cf. A000041, A056221.

Programs

Mathematica

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

Extensions

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