|
%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
|
