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
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