Computes hyperharmonic numbers via iterated summation
HyperHarmonicNumber[p, n]
HyperHarmonicNumber[p, n, r]
HyperHarmonicNumber[p, n, r, s]
Table[HyperHarmonicNumber[2, n], {n, 10}]
→ {1, 5/2, 13/3, 77/12, 87/10, 223/20, 481/35, 4609/280, 4861/252, 55991/2520}DiscretePlot[HyperHarmonicNumber[2, t], {t, 0, 100}]
→ -Graphics-ReImPlot[HyperHarmonicNumber[2 / 3, n], {n, -∞, ∞}]
→ -Graphics-