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 A130243 #6 Sep 08 2022 08:45:30 %S A130243 1,2,4,7,10,13,17,21,25,29,34,39,44,49,54,59,64,70,76,82,88,94,100, %T A130243 106,112,118,124,130,137,144,151,158,165,172,179,186,193,200,207,214, %U A130243 221,228,235,242,249,256,264,272,280,288,296,304,312,320,328,336,344,352 %N A130243 Partial sums of the 'lower' Lucas Inverse A130241. %H A130243 G. C. Greubel, <a href="/A130243/b130243.txt">Table of n, a(n) for n = 1..2500</a> %F A130243 a(n) = Sum_{k=1..n} A130241(k). %F A130243 a(n) = (n+1)*A130241(n) - A000032(A130241(n)+2) + 3. %F A130243 G.f.: g(x) = 1/(1-x)^2*Sum_{k>=1} x^Lucas(k). %t A130243 Table[1 + Sum[Floor[Log[GoldenRatio, k + 1/2]], {k, 1, n}], {n, 1, 50}] (* _G. C. Greubel_, Sep 13 2018 *) %o A130243 (PARI) for(n=1,50, print1(1 + sum(k=1,n,floor(log(k+1/2)/log((1+sqrt(5))/2))), ", ")) \\ _G. C. Greubel_, Sep 13 2018 %o A130243 (Magma) [1 + (&+[Floor(Log(k+1/2)/Log((1+Sqrt(5))/2)): k in [1..n]]): n in [1..50]]; // _G. C. Greubel_, Sep 13 2018 %Y A130243 Other related sequences: A000032, A130244, A130242, A130245, A130246, A130248, A130251, A130257, A130261. Fibonacci inverse see A130233 - A130240, A104162. %K A130243 nonn %O A130243 1,2 %A A130243 _Hieronymus Fischer_, May 19 2007