A258740 - OEIS

%I #15 Nov 07 2017 14:50:12

%S 3,4,7,18,29,47,76,199,843,5778,9349,24476,64079,167761,1860498,

%T 4870847,7881196,599074578,1568397607,6643838879,817138163596,

%U 2139295485799,14662949395604,38388099893011,688846502588399,7639424778862807,12360848946698171

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

%C This sequence is probably finite. The last term appears to be a(228) = L(6903) = 4382...4004 (see A258938).

%e 29 is in the sequence because L(7) = A000032(7) = 29 and 2 + 9 = 11 > 7.

%t LucasL[#]&/@Select[Range[100], Total[IntegerDigits[LucasL[#]]] > # &]

%t With[{nn=100},Select[Thread[{LucasL[Range[nn]],Range[nn]}],Total[ IntegerDigits[ #[[1]]]]>#[[2]]&]][[All,1]] (* _Harvey P. Dale_, Nov 07 2017 *)

%o (PARI) lista(nn) = {for(n=1, nn, if (sumdigits(l = fibonacci(n+1) + fibonacci(n-1)) > n, print1(l, ", "))); } \\ _Michel Marcus_, Nov 07 2015

%Y Cf. A000032, A068498, A258938.

%K nonn,base

%O 1,1

%A _Michel Lagneau_, Nov 06 2015