|
|
|
|
4, 1, 5, 11, 30, 200, 5880, 1149852, 6643838880, 7639424866275970, 50755107359004694925071660, 387739824812222466915538827541705412334750, 19679776435706023589554719270187917683310683639911856695096924149852
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
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]]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|