A100279 a(n) = A100107(A000032(n)).

4, 1, 5, 11, 30, 200, 5880, 1149852, 6643838880, 7639424866275970, 50755107359004694925071660, 387739824812222466915538827541705412334750, 19679776435706023589554719270187917683310683639911856695096924149852

Offset

0,1

Links

Table of n, a(n) for n=0..12.

Maple

A000032 := proc(n) option remember; if n =0 then 2; elif n = 1 then 1; else A000032(n-1)+A000032(n-2) ; fi ; end: A100107 := proc(n) option remember ; local a, dvs, d ; a := 0: dvs := numtheory[divisors](n) ; for d in dvs do a := a+ A000032(d) ; od: RETURN(a) ; end: A100279 := proc(n) option remember ; A100107(A000032(n)) ; end: seq(A100279(n), n=0..15) ; # R. J. Mathar, Aug 21 2007

Mathematica

A100107[n_] := Total[LucasL[Divisors[n]]];
a[n_] := A100107[LucasL[n]];
Table[a[n], {n, 0, 12}] (* Jean-François Alcover, Aug 01 2023 *)

Crossrefs

Cf. A000032, A100107.

Sequence in context: A204201 A090842 A120868 * A132379 A193955 A130746

Adjacent sequences: A100276 A100277 A100278 * A100280 A100281 A100282

Keyword

nonn,less

Author

Jonathan Vos Post, Dec 26 2004

Extensions

Corrected and extended by R. J. Mathar, Aug 21 2007

Name corrected using formula by R. J. Mathar, Andrey Zabolotskiy, Apr 30 2021

Status

approved