login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A333675 Partial sums of non-Lucas numbers A057854. 1
5, 11, 19, 28, 38, 50, 63, 77, 92, 108, 125, 144, 164, 185, 207, 230, 254, 279, 305, 332, 360, 390, 421, 453, 486, 520, 555, 591, 628, 666, 705, 745, 786, 828, 871, 915, 960, 1006, 1054, 1103, 1153, 1204, 1256, 1309, 1363, 1418, 1474, 1531, 1589, 1648, 1708, 1769 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Daniel Hoyt, Table of n, a(n) for n = 1..10000

MATHEMATICA

a[n_] := With[{phi = (1 + Sqrt[5])/2}, Floor[1/2 - LambertW[-1, -Log[phi]/phi^(n + 1/2)]/Log[phi]]];

Accumulate[Table[a[n], {n, 1, 60}]]

PROG

(Python)

N = 60

notlucas = []

lucas = [2, 1]

for x in range(N):

    a = lucas[x] + lucas[x+1]

    lucas.append(a)

notlucas = [x for x in range(1, len(lucas)) if x not in lucas]

A333675 = []

for y in range(len(notlucas)):

    a = sum(notlucas[:y]) + notlucas[y]

    A333675.append(a)

print(', '.join(str(x) for x in A333675))

CROSSREFS

Cf. A138105, A057854, A000032.

Sequence in context: A163120 A051350 A088638 * A051349 A048217 A336015

Adjacent sequences:  A333672 A333673 A333674 * A333676 A333677 A333678

KEYWORD

easy,nonn,hear

AUTHOR

Daniel Hoyt, Apr 01 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 13 05:41 EDT 2021. Contains 344981 sequences. (Running on oeis4.)