%I #22 Apr 06 2021 04:40:36
%S 7,18,40,83,163,311,579,1060,1914,3419,6053,10637,18575,32262,55772,
%T 96019,164711,281635,480171,816536,1385262,2345083,3962185,6682393,
%U 11251543,18916026,31756624,53243795,89160619,149135759,249187923,415946572,693648930
%N a(n) = n*L(n) + (n-1)*L(n-1) where L(n) is the Lucas number.
%C For n>2, two evens followed by four odds.
%H Harvey P. Dale, <a href="/A133673/b133673.txt">Table of n, a(n) for n = 2..1000</a>
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (2,1,-2,-1).
%F From _R. J. Mathar_, Jul 08 2009, Jul 13 2009: (Start)
%F G.f.: -x^2*(-7-4*x+3*x^2+x^3)/(x^2+x-1)^2.
%F a(n) = 2*a(n-1)+a(n-2)-2*a(n-3)-a(n-4).
%F a(n) = A146005(n) + A146005(n-1). (End)
%e For n=2, a(2) = 7;
%e For n=21, a(21) = 816536.
%t Total/@Partition[Times@@@Table[{n,LucasL[n]},{n,30}],2,1] (* or *) LinearRecurrence[{2,1,-2,-1},{7,18,40,83},30](* _Harvey P. Dale_, Oct 21 2011 *)
%Y Cf. A000032, A136376, A146005.
%K nonn,easy
%O 2,1
%A _Parthasarathy Nambi_, Dec 29 2007
%E Typo in A-numbers corrected by _R. J. Mathar_, Jul 13 2009
%E More terms from _Harvey P. Dale_, Oct 21 2011