%I #11 Sep 03 2019 03:04:10
%S 1,0,0,2,0,0,3,0,0,4,0,0,4,0,0,8,0,0,8,0,0,8,0,0,4,0,0,8,0,0,12,0,0,8,
%T 0,0,8,0,0,16,0,0,24,0,0,64,0,0,8,0,0,16,0,0,20,0,0,16,0,0,32,0,0,64,
%U 0,0,24,0,0,32,0,0,8,0,0,128,0,0,12,0,0
%N Number of even divisors of Lucas(n).
%H Amiram Eldar, <a href="/A280728/b280728.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = A183063(A000032(n)).
%t a[n_]:=Block[{d=Divisors[LucasL[n]]}, Count[EvenQ[d], True]]; Table[a[n], {n, 0, 80}]
%Y Cf. A000032, A183063, A193495.
%K nonn
%O 0,4
%A _Vincenzo Librandi_, Jan 09 2017
%E Offset corrected by _Amiram Eldar_, Sep 03 2019
|