A280108 Sum of odd divisors of Lucas(n).

1, 4, 1, 8, 12, 13, 30, 48, 20, 168, 200, 192, 522, 1128, 384, 2208, 3572, 4320, 9350, 17296, 6360, 54208, 64680, 52992, 186048, 361928, 115600, 826728, 1169400, 1377012, 3010350, 4876416, 1980400, 17256768, 23639040, 19906944, 54018522, 116538408

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..300

Formula

a(n) = A000593(A000032(n)).

Mathematica

a[n_]:=Select[Divisors[LucasL[n]], OddQ]//Total; Table[a[n], {n, 1, 40}]

Crossrefs

Cf. A000032, A000593, A193495.

Sequence in context: A264285 A125129 A324780 * A299583 A013611 A297194

Adjacent sequences: A280105 A280106 A280107 * A280109 A280110 A280111

Keyword

nonn

Author

Vincenzo Librandi, Jan 06 2017

Status

approved