login
A100279
a(n) = A100107(A000032(n)).
3
4, 1, 5, 11, 30, 200, 5880, 1149852, 6643838880, 7639424866275970, 50755107359004694925071660, 387739824812222466915538827541705412334750, 19679776435706023589554719270187917683310683639911856695096924149852
OFFSET
0,1
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
Sequence in context: A204201 A090842 A120868 * A132379 A193955 A130746
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