（PARI）
AFK（v）={apply（p->subst（serlaplace（y^0*p），y，1），Vec（-1+prod（k=1，#v，1+v[k]*x^k*y+O（x*x^#v）），-#v）
CFK（v）={apply（p->subst（serlaplace（p/y），y，1），Vec（-1+prod（k=1，#v，1+v[k]*x^k*y+O（x*x^#v）），-#v）
序列（n）={my（v=[1]）；对于（i=3，n，v=concat（[1]，AFK（v）））；concat\\安德鲁·霍罗伊德2018年9月20日
