A122493 Union of Fibonacci and triangular numbers.

0, 1, 2, 3, 5, 6, 8, 10, 13, 15, 21, 28, 34, 36, 45, 55, 66, 78, 89, 91, 105, 120, 136, 144, 153, 171, 190, 210, 231, 233, 253, 276, 300, 325, 351, 377, 378, 406, 435, 465, 496, 528, 561, 595, 610, 630, 666, 703, 741, 780, 820, 861, 903, 946, 987, 990, 1035, 1081

Offset

0,3

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Maple

#does not generate terms in order# with(combinat, fibonacci): for i from 1 to 20 do fibonacci(i); sum(k, k=0..i); end do;

Mathematica

Module[{upto=1100, f=1, tr}, While[Fibonacci[f]<upto, f++]; tr=Ceiling[ (Sqrt[ 1+8*upto]-1)/2]; Select[Join[Fibonacci[Range[0, f]], Accumulate[ Range[ tr]]]// Union, #<=upto&]] (* Harvey P. Dale, Oct 21 2016 *)

Crossrefs

Cf. A000045, A000217.

Sequence in context: A229172 A056837 A001971 * A284830 A053873 A332272

Adjacent sequences: A122490 A122491 A122492 * A122494 A122495 A122496

Keyword

nonn

Author

Ben Paul Thurston, Sep 16 2006

Extensions

More terms from Franklin T. Adams-Watters, Sep 20 2006

Status

approved