OFFSET
1,1
COMMENTS
This sequence is probably finite. The last term appears to be a(228) = L(6903) = 4382...4004 (see A258938).
EXAMPLE
29 is in the sequence because L(7) = A000032(7) = 29 and 2 + 9 = 11 > 7.
MATHEMATICA
LucasL[#]&/@Select[Range[100], Total[IntegerDigits[LucasL[#]]] > # &]
With[{nn=100}, Select[Thread[{LucasL[Range[nn]], Range[nn]}], Total[ IntegerDigits[ #[[1]]]]>#[[2]]&]][[All, 1]] (* Harvey P. Dale, Nov 07 2017 *)
PROG
(PARI) lista(nn) = {for(n=1, nn, if (sumdigits(l = fibonacci(n+1) + fibonacci(n-1)) > n, print1(l, ", "))); } \\ Michel Marcus, Nov 07 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Nov 06 2015
STATUS
approved