login
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).
0
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
OFFSET
0,1
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
KEYWORD
nonn
STATUS
approved