A258740 Lucas numbers whose sum of decimal digits is greater than its index.

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).

Links

Table of n, a(n) for n=1..27.

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

Cf. A000032, A068498, A258938.

Sequence in context: A042375 A153067 A041593 * A109749 A307738 A041497

Adjacent sequences: A258737 A258738 A258739 * A258741 A258742 A258743

Keyword

nonn,base

Author

Michel Lagneau, Nov 06 2015

Status

approved