login
A258740
Lucas numbers whose sum of decimal digits is greater than its index.
1
3, 4, 7, 18, 29, 47, 76, 199, 843, 5778, 9349, 24476, 64079, 167761, 1860498, 4870847, 7881196, 599074578, 1568397607, 6643838879, 817138163596, 2139295485799, 14662949395604, 38388099893011, 688846502588399, 7639424778862807, 12360848946698171
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