A023501 - OEIS

A023501

a(n) = b(n) + d(n), where b(n) = (n-th Lucas number > 1) and d(n) = (n-th number that is 1, 2, or 3, or is not a Lucas number).

4, 6, 10, 16, 24, 37, 56, 86, 135, 212, 336, 536, 859, 1381, 2226, 3591, 5799, 9371, 15150, 24500, 39628, 64105, 103709, 167789, 271473, 439235, 710679, 1149884, 1860532, 3010384, 4870883, 7881233, 12752081, 20633278, 33385322

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

LINKS

Table of n, a(n) for n=0..34.

MATHEMATICA

nn=40; Total/@Partition[With[{luc=Rest[LucasL[Range[nn]]]}, Riffle[ luc, Insert[ Complement[ Range[nn+Count[luc, _?(#<nn&)]], luc], 3, 3]]], 2] (* Harvey P. Dale, Jul 12 2011 *)

CROSSREFS

Sequence in context: A102768 A075637 A027689 * A050887 A078642 A032416

Adjacent sequences: A023498 A023499 A023500 * A023502 A023503 A023504

KEYWORD

nonn

AUTHOR

Clark Kimberling

STATUS

approved