login
A280728
Number of even divisors of Lucas(n).
1
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, 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, 0, 0, 24, 0, 0, 32, 0, 0, 8, 0, 0, 128, 0, 0, 12, 0, 0
OFFSET
0,4
LINKS
FORMULA
a(n) = A183063(A000032(n)).
MATHEMATICA
a[n_]:=Block[{d=Divisors[LucasL[n]]}, Count[EvenQ[d], True]]; Table[a[n], {n, 0, 80}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jan 09 2017
EXTENSIONS
Offset corrected by Amiram Eldar, Sep 03 2019
STATUS
approved