This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A100279 #22 Aug 01 2023 07:36:16
%S A100279 4,1,5,11,30,200,5880,1149852,6643838880,7639424866275970,
%T A100279 50755107359004694925071660,
%U A100279 387739824812222466915538827541705412334750,19679776435706023589554719270187917683310683639911856695096924149852
%N A100279 a(n) = A100107(A000032(n)).
%p A100279 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
%t A100279 A100107[n_] := Total[LucasL[Divisors[n]]];
%t A100279 a[n_] := A100107[LucasL[n]];
%t A100279 Table[a[n], {n, 0, 12}] (* _Jean-François Alcover_, Aug 01 2023 *)
%Y A100279 Cf. A000032, A100107.
%K A100279 nonn,less
%O A100279 0,1
%A A100279 _Jonathan Vos Post_, Dec 26 2004
%E A100279 Corrected and extended by _R. J. Mathar_, Aug 21 2007
%E A100279 Name corrected using formula by _R. J. Mathar_, _Andrey Zabolotskiy_, Apr 30 2021