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

 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.

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