A130246 -id:A130246 - cp's OEIS frontend

A130248 Partial sums of the Lucas Inverse A130247.

1, 1, 3, 6, 9, 12, 16, 20, 24, 28, 33, 38, 43, 48, 53, 58, 63, 69, 75, 81, 87, 93, 99, 105, 111, 117, 123, 129, 136, 143, 150, 157, 164, 171, 178, 185, 192, 199, 206, 213, 220, 227, 234, 241, 248, 255, 263, 271, 279, 287, 295, 303, 311, 319, 327, 335, 343, 351

Offset: 1

Hieronymus Fischer, May 19 2007

nonn

G. C. Greubel, Table of n, a(n) for n = 1..5000

Other related sequences: A000032, A130241, A130242, A130243, A130244, A130245, A130246, A130251, A130252, A130257, A130261. Fibonacci inverse see A130233 - A130240, A104162.

Join[{1, 1}, Table[Sum[Floor[Log[GoldenRatio, k + 1/2]], {k, 1, n}], {n, 3, 50}]] (* G. C. Greubel, Dec 24 2017 *)

a(n)=sum{1<=k<=n, A130247(k)}=2+(n+1)*A130247(n)-A000032(A130247(n)+2) for n>=3. G.f.: g(x)=1/(1-x)^2*(sum{k>=1, x^Lucas(k)}-x^2).

A130245 Number of Lucas numbers (A000032) <= n.

Original entry on oeis.org

0, 1, 2, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10

Offset: 0

Hieronymus Fischer, May 19 2007, Jul 02 2007

nonn

Partial sums of the Lucas indicator sequence A102460.

For n>=2, we have a(A000032(n)) = n + 1.

			a(9)=5 because there are 5 Lucas numbers <=9 (2,1,3,4 and 7).

Antti Karttunen, Table of n, a(n) for n = 0..64079
Dorin Andrica, Ovidiu Bagdasar, and George Cătălin Tųrcąs, On some new results for the generalised Lucas sequences, An. Şt. Univ. Ovidius Constanţa (Romania, 2021) Vol. 29, No. 1, 17-36.

Partial sums of A102460.
For partial sums of this sequence, see A130246. Other related sequences: A000032, A130241, A130242, A130247, A130249, A130253, A130255, A130259.
For Fibonacci inverse, see A130233 - A130240, A104162, A108852.

[0] cat [1+Floor(Log((2*n+1)/2)/Log((1+Sqrt(5))/2)): n in [1..100]]; // G. C. Greubel, Sep 09 2018

Join[{0}, Table[1+Floor[Log[GoldenRatio, (2*n+1)/2]], {n,1,100}]] (* G. C. Greubel, Sep 09 2018 *)

A102460(n) = { my(u1=1,u2=3,old_u1); if(n<=2,sign(n),while(n>u2,old_u1=u1;u1=u2;u2=old_u1+u2);(u2==n)); };
A130245(n) = if(!n,n,A102460(n)+A130245(n-1));
\\ Or just as:
c=0; for(n=0,123,c += A102460(n); print1(c,", ")); \\ Antti Karttunen, May 13 2018

from itertools import count, islice
def A130245_gen(): # generator of terms
    yield from (0, 1, 2)
    a, b = 3,4
    for i in count(3):
        yield from (i,)*(b-a)
        a, b = b, a+b
A130245_list = list(islice(A130245_gen(),40)) # Chai Wah Wu, Jun 08 2022

a(n) = 1 +floor(log_phi((n+sqrt(n^2+4))/2)) = 1 +floor(arcsinh(n/2)/log(phi)) for n>=2, where phi = (1+sqrt(5))/2.
a(n) = A130241(n)+1 = A130242(n+1) for n>=2.
G.f.: g(x) = 1/(1-x)*sum{k>=0, x^Lucas(k)}.
a(n) = 1 +floor(log_phi(n+1/2)) for n>=1, where phi is the golden ratio.
Sum_{n>=1} (-1)^(n+1)/a(n) = 3/2 - Pi/(6*sqrt(3)) - log(3)/2. - Amiram Eldar, Jul 25 2025

A130235 Partial sums of the 'lower' Fibonacci Inverse A130233.

Original entry on oeis.org

0, 2, 5, 9, 13, 18, 23, 28, 34, 40, 46, 52, 58, 65, 72, 79, 86, 93, 100, 107, 114, 122, 130, 138, 146, 154, 162, 170, 178, 186, 194, 202, 210, 218, 227, 236, 245, 254, 263, 272, 281, 290, 299, 308, 317, 326, 335, 344, 353, 362, 371, 380, 389, 398, 407, 417, 427

Offset: 0

Hieronymus Fischer, May 17 2007

nonn

G. C. Greubel, Table of n, a(n) for n = 0..5000

Cf. A000045, A130233, A130234, A130236, A130238, A130240, A130243, A130246, A130244, A130246, A130248, A130251, A130257, A130261.

m:=120;
f:= func< x | (&+[x^Fibonacci(j): j in [1..Floor(3*Log(3*m+1))]])/(1-x)^2 >;
R:=PowerSeriesRing(Rationals(), m+1);
[0] cat Coefficients(R!( f(x) )); // G. C. Greubel, Mar 17 2023

nmax = 90; CoefficientList[Series[Sum[x^Fibonacci[k], {k, 1, 1 + Log[3/2 + Sqrt[5]*nmax]/Log[GoldenRatio]}]/(1-x)^2, {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 14 2020 *)

m=120
def f(x): return sum( x^fibonacci(j) for j in range(1, int(3*log(3*m+1))))/(1-x)^2
def A130235_list(prec):
    P. = PowerSeriesRing(ZZ, prec)
    return P( f(x) ).list()
A130235_list(m) # G. C. Greubel, Mar 17 2023

a(n) = Sum_{k=0..n} A130233(k) = (n+1)*A130233(n) - Fib(A130233(n)+2) + 1.

G.f.: 1/(1-x)^2 * Sum_{k>=1} x^Fib(k). [corrected by Joerg Arndt, Apr 14 2020]

A130240 Partial sums of A130239.

Original entry on oeis.org

0, 2, 4, 6, 9, 12, 15, 18, 21, 25, 29, 33, 37, 41, 45, 49, 53, 57, 61, 65, 69, 73, 77, 81, 85, 90, 95, 100, 105, 110, 115, 120, 125, 130, 135, 140, 145, 150, 155, 160, 165, 170, 175, 180, 185, 190, 195, 200, 205, 210, 215, 220, 225, 230, 235, 240, 245, 250, 255, 260

Offset: 0

Hieronymus Fischer, May 17 2007

nonn

G. C. Greubel, Table of n, a(n) for n = 0..5000

Cf. A000045, A130233, A130234, A130235, A130236, A130237, A130238, A130239, A130243, A130246, A130248, A130239, A130251, A130253, A130257, A130261.

A130233:= func< n | Floor(Log(3/2 + n*Sqrt(5))/Log((1+Sqrt(5))/2)) >;
A130240:= func< n | (&+[A130233(Floor(Sqrt(j))): j in [0..n]]) >;
[A130240(n): n in [0..70]]; // G. C. Greubel, Mar 18 2023

A130233[n_]:= Floor[Log[GoldenRatio, 3/2 + n*Sqrt[5]]];
A130240[n_]:= A130240[n]= Sum[A130233[Floor[Sqrt[j]]], {j,0,n}];
Table[A130240[n], {n,0,70}] (* G. C. Greubel, Mar 18 2023 *)

def A130233(n): return int(log(3/2 +n*sqrt(5), golden_ratio))
def A130240(n): return sum( A130233(floor(sqrt(j))) for j in range(n+1) )
[A130240(n) for n in range(71)] # G. C. Greubel, Mar 18 2023

a(n) = Sum_{k=0..n} A130239(k).
a(n) = (n+1)*A130233(sqrt(n)) - Fib(A130233(sqrt(n)) + 1) * Fib(A130232(sqrt(n))).
G.f.: (1/(1-x)^2) * Sum_{k>=1} x^(Fib(k)^2).

A130236 Partial sums of the 'upper' Fibonacci Inverse A130234.

Original entry on oeis.org

0, 1, 4, 8, 13, 18, 24, 30, 36, 43, 50, 57, 64, 71, 79, 87, 95, 103, 111, 119, 127, 135, 144, 153, 162, 171, 180, 189, 198, 207, 216, 225, 234, 243, 252, 262, 272, 282, 292, 302, 312, 322, 332, 342, 352, 362, 372, 382, 392, 402, 412, 422, 432, 442, 452, 462, 473

Offset: 0

Hieronymus Fischer, May 17 2007

nonn

G. C. Greubel, Table of n, a(n) for n = 0..5000

Cf. A000045, A130233, A130234, A130235, A130244, A130246, A130244, A130246, A130248, A130252, A130258, A130262.

m:=120;
f:= func< x | x*(&+[x^Fibonacci(j): j in [0..Floor(3*Log(3*m+1))]])/(1-x)^2 >;
R:=PowerSeriesRing(Rationals(), m+1);
[0] cat Coefficients(R!( f(x) )); // G. C. Greubel, Mar 18 2023

b[n_]:= For[i=0, True, i++, If[Fibonacci[i] >= n, Return[i]]];
b/@ Range[0, 56]//Accumulate (* Jean-François Alcover, Apr 13 2020 *)

m=120
def f(x): return x*sum( x^fibonacci(j) for j in range(1+int(3*log(3*m+1))))/(1-x)^2
def A130236_list(prec):
    P. = PowerSeriesRing(ZZ, prec)
    return P( f(x) ).list()
A130236_list(m) # G. C. Greubel, Mar 18 2023

a(n) = Sum_{k=0..n} A130234(k).
a(n) = n*A130234(n) - Fibonacci(A130234(n)+1) + 1.
G.f.: (x/(1-x)^2) * Sum_{k>=0} x^Fibonacci(k).

A130243 Partial sums of the 'lower' Lucas Inverse A130241.

Original entry on oeis.org

1, 2, 4, 7, 10, 13, 17, 21, 25, 29, 34, 39, 44, 49, 54, 59, 64, 70, 76, 82, 88, 94, 100, 106, 112, 118, 124, 130, 137, 144, 151, 158, 165, 172, 179, 186, 193, 200, 207, 214, 221, 228, 235, 242, 249, 256, 264, 272, 280, 288, 296, 304, 312, 320, 328, 336, 344, 352

Offset: 1

Hieronymus Fischer, May 19 2007

nonn

G. C. Greubel, Table of n, a(n) for n = 1..2500

Other related sequences: A000032, A130244, A130242, A130245, A130246, A130248, A130251, A130257, A130261. Fibonacci inverse see A130233 - A130240, A104162.

[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

Table[1 + Sum[Floor[Log[GoldenRatio, k + 1/2]], {k, 1, n}], {n, 1, 50}] (* G. C. Greubel, Sep 13 2018 *)

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

a(n) = Sum_{k=1..n} A130241(k).
a(n) = (n+1)*A130241(n) - A000032(A130241(n)+2) + 3.
G.f.: g(x) = 1/(1-x)^2*Sum_{k>=1} x^Lucas(k).

A130237 The 'lower' Fibonacci Inverse A130233(n) multiplied by n.

Original entry on oeis.org

0, 2, 6, 12, 16, 25, 30, 35, 48, 54, 60, 66, 72, 91, 98, 105, 112, 119, 126, 133, 140, 168, 176, 184, 192, 200, 208, 216, 224, 232, 240, 248, 256, 264, 306, 315, 324, 333, 342, 351, 360, 369, 378, 387, 396, 405, 414, 423, 432, 441, 450, 459, 468, 477, 486, 550

Offset: 0

Hieronymus Fischer, May 17 2007

nonn

G. C. Greubel, Table of n, a(n) for n = 0..5000

Partial sums: A130238.

Cf. A000045, A130233, A130234, A130235, A130236, A130238, A130239, A130240, A130243, A130246, A130248, A130239, A130251, A130253, A130257, A130261.

[n*Floor(Log(3/2 +n*Sqrt(5))/Log((1+Sqrt(5))/2)): n in [0..70]]; // G. C. Greubel, Mar 18 2023

Table[n*Floor[Log[GoldenRatio, 3/2 +n*Sqrt[5]]], {n,0,70}] (* G. C. Greubel, Mar 18 2023 *)

[n*int(log(3/2 +n*sqrt(5), golden_ratio)) for n in range(71)] # G. C. Greubel, Mar 18 2023

a(n) = n*A130233(n).
a(n) = n*floor(arcsinh(sqrt(5)*n/2)/log(phi)).
G.f.: (1/(1-x))*Sum_{k>=1} (Fib(k) + x/(1-x))*x^Fib(k).

A130239 Maximal index k of the square of a Fibonacci number such that Fib(k)^2 <= n (the 'lower' squared Fibonacci Inverse).

Original entry on oeis.org

0, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6

Offset: 0

Hieronymus Fischer, May 17 2007, May 28 2007

nonn

			a(10) = 4 since Fib(4)^2 = 9 <= 10 but Fib(5)^2 = 25 > 10.

G. C. Greubel, Table of n, a(n) for n = 0..5000

Partial sums: A130240. Other related sequences: A000045, A130233, A130234, A130235, A130236, A130237, A130238, A130240, A130243, A130246, A130248, A130239, A130251, A130253, A130257, A130261.

A130233:= func< n | Floor(Log(3/2 + n*Sqrt(5))/Log((1+Sqrt(5))/2)) >;
[A130233(Floor(Sqrt(n))): n in [0..120]]; // G. C. Greubel, Mar 18 2023

A130233[n_]:= Floor[Log[GoldenRatio, 3/2 +n*Sqrt[5]]];
Table[A130233[Floor[Sqrt[n]]], {n, 0, 120}] (* G. C. Greubel, Mar 18 2023 *)

def A130233(n): return int(log(3/2 +n*sqrt(5), golden_ratio))
def A130239(n): return A130233(floor(sqrt(n)))
[A130239(n) for n in range(121)] # G. C. Greubel, Mar 18 2023

a(n) = max(k | Fib(k)^2 <= n) = A130233(floor(sqrt(n))).
a(n) = floor(arcsinh(sqrt(5n)/2)/log(phi)), where phi=(1+sqrt(5))/2.
G.f.: (1/(1-x))*Sum_{k>=1} x^(Fib(k)^2).

A130244 Partial sums of the 'upper' Lucas Inverse A130242.

Original entry on oeis.org

0, 0, 0, 2, 5, 9, 13, 17, 22, 27, 32, 37, 43, 49, 55, 61, 67, 73, 79, 86, 93, 100, 107, 114, 121, 128, 135, 142, 149, 156, 164, 172, 180, 188, 196, 204, 212, 220, 228, 236, 244, 252, 260, 268, 276, 284, 292, 300, 309, 318, 327, 336, 345, 354, 363, 372, 381, 390

Offset: 0

Hieronymus Fischer, May 19 2007

nonn

G. C. Greubel, Table of n, a(n) for n = 0..2500

Other related sequences: A000032, A130241, A130243, A130245, A130246, A130248, A130252, A130258, A130262. Fibonacci inverse see A130233 - A130240, A104162.

[0,0] cat [(&+[Ceiling(Log(k + 1/2)/Log((1+Sqrt(5))/2)) : k in [0..n]]): n in [1..50]]; // G. C. Greubel, Sep 12 2018

Join[{0, 0}, Table[Sum[Ceiling[Log[GoldenRatio, k + 1/2]], {k, 0, n}], {n, 1, 50}]] (* G. C. Greubel, Sep 12 2018 *)

for(n=-1,50, print1(if(n==-1, 0, if(n==0, 0, sum(k=0, n, ceil(log(k + 1/2)/log((1+sqrt(5))/2))))), ", ")) \\ G. C. Greubel, Sep 12 2018

a(n) = Sum_{k=0..n} A130242(k).
a(n) = n*A130242(n) - A000032(A130242(n) +1) for n>=3.
G.f.: x/(1-x)^2*(2*x^2 + Sum{k>=2, x^Lucas(k)}).

A130238 Partial sums of A130237.

Original entry on oeis.org

0, 2, 8, 20, 36, 61, 91, 126, 174, 228, 288, 354, 426, 517, 615, 720, 832, 951, 1077, 1210, 1350, 1518, 1694, 1878, 2070, 2270, 2478, 2694, 2918, 3150, 3390, 3638, 3894, 4158, 4464, 4779, 5103, 5436, 5778, 6129, 6489, 6858, 7236, 7623, 8019, 8424, 8838

Offset: 0

Hieronymus Fischer, May 17 2007

nonn

G. C. Greubel, Table of n, a(n) for n = 0..5000

Cf. A000045, A130233, A130234, A130235, A130236, A130237, A130239, A130240, A130243, A130246, A130248, A130239, A130251, A130253, A130257, A130261.

[(&+[j*Floor(Log(3/2 +j*Sqrt(5))/Log((1+Sqrt(5))/2)): j in [0..n]]): n in [0..70]]; // G. C. Greubel, Mar 18 2023

a[n_]:= a[n]= Sum[j*Floor[Log[GoldenRatio, 3/2 +j*Sqrt[5]]], {j,0,n}];
Table[a[n], {n,0,70}] (* G. C. Greubel, Mar 18 2023 *)

def A130238(n): return sum(j*int(log(3/2 +j*sqrt(5), golden_ratio)) for j in range(n+1))
[A130238(n) for n in range(71)] # G. C. Greubel, Mar 18 2023

a(n) = Sum_{k=0..n} A130237(k).
a(n) = (n*(n+1)*A130233(n) - (Fib(A130233(n)) - 1)*(Fib(A130233(n) + 1) - 1))/2.
G.f.: (1/(1-x)^3)*Sum_{k>=1} (Fib(k)*(1-x) + x)*x^Fib(k).

cp's OEIS Frontend

A130248 Partial sums of the Lucas Inverse A130247.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A130245 Number of Lucas numbers (A000032) <= n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Python

Formula

A130235 Partial sums of the 'lower' Fibonacci Inverse A130233.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

SageMath

Formula

A130240 Partial sums of A130239.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

SageMath

Formula

A130236 Partial sums of the 'upper' Fibonacci Inverse A130234.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

SageMath

Formula

A130243 Partial sums of the 'lower' Lucas Inverse A130241.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A130237 The 'lower' Fibonacci Inverse A130233(n) multiplied by n.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

SageMath

Formula

A130239 Maximal index k of the square of a Fibonacci number such that Fib(k)^2 <= n (the 'lower' squared Fibonacci Inverse).