DiscretePlot[ HypergeometricPFQ[{3/2, -n, n + 2}, {2, 3}, 1], {n, -50, 50}]