(PARI)卢卡斯(n)=斐波那契(n+1)+斐波那奇(n-1);
向量(25,n,n--;如果(n==0,2,和(k=1,n,stirling(n,k,1)*lucas(k)))\\G.C.格鲁贝尔2019年7月6日
(MAGMA)[2]猫[(&+[StirlingFirst(n,k)*Lucas(k):k in[1..n]]):n in[1..25]]//G.C.格鲁贝尔2019年7月6日
(鼠尾草)[2]+[sum((-1)^(n-k)*stirling_number1(n,k)*lucas_number2(k,1,-1)for k in(1..n))for n in(1..25)]#G.C.格鲁贝尔2019年7月6日
(GAP)级联([2],列表([1..25],n->总和([1..n],k->(-1)^(n-k)*Stirling1(n,k)*Lucas(1,-1,k)[2]))#G.C.格鲁贝尔2019年7月6日