PrependTo[$Path,FileNameJoin[{$HomeDirectory,"Desktop/integers-conference/INTEGERS2018-JFractions"}]];
<<JFractions.m

SeqFunc[n_]:=PartitionsP[n+2]
ComputeSequenceParameters[SeqFunc,13]

?HthConvergent

SeqFunc[n_]:=Product[(1-q*Power[d, α])/(1-Power[q, d]), {d, Divisors[n]}]
seqParams=ComputeSequenceParameters[SeqFunc, 4];
TableForm[FullSimplify[seqParams[[ABSequenceIndex]]]]
TableForm[FullSimplify[seqParams[[CSequenceIndex]]]]

SeqFunc[n_]:=Product[(1-q*Power[d, 0])/(1-Power[q, d]), {d, Divisors[n]}]
ComputeSequenceParameters[SeqFunc, 6] // DisplaySequenceParameters

SeqFunc[n_]:=Product[(1-q*Power[d, 1])/(1-Power[q, d]), {d, Divisors[n]}]
ComputeSequenceParameters[SeqFunc, 6] // DisplaySequenceParameters

SeqFunc[n_]:=Product[(1-q*Power[d, α])/(1-Power[q, d]), {d, Divisors[n]}]
Table[{Index->h, SeriesCoefficient[HthConvergent[SeqFunc, h, z], {q, 0, 1}]}, {h, 2, 2}] // TableForm

SeqFunc[n_]:=PartitionsP[n]
ComputeSequenceParameters[SeqFunc,12]/.(ab[2]->2)//DisplaySequenceParameters

HthConvergent[PartitionsP,6,z] // Simplify
Series[%,{z,0,4}]
Sum[PartitionsP[n+1]Power[z,n],{n,0,6}]

SeqFunc[n_]:=PartitionsP[n+1]
Table[{Idx->h,ColumnForm[EnumerateCongruenceSeries[SeqFunc, h,z,False]]},{h,2,4}] // TableForm
Table[{Idx->h,ColumnForm[FullSimplify[EnumerateCongruenceSeries[SeqFunc, h,z,False]]/.(c[1]->2)]},{h,2,4}] // TableForm
Table[{Idx->h,ColumnForm[FullSimplify[EnumerateCongruenceSeries[SeqFunc, h,z,False]/.(c[1]->2)/.(ab[2]->-2)]]},{h,2,6}] // TableForm