%I #6 Mar 28 2015 09:41:51
%S 1,3,11,76,521,39603,271443,33385282,370248451,688846502588399,
%T 71420983074726546239,22291846172619859445381409012498,
%U 6957708846765958465433550193562787551898761
%N Lucas numbers for which the sum of the digits is a Fibonacci number.
%C The next term is too large to include. - _Joshua Zucker_, May 11 2006
%e 39603 is in the sequence because (1)it is a Lucas number and (2)the sum of its digits 3+9+6+0+3=21 is a Fibonacci number.
%t With[{fibs=Fibonacci[Range[50]]},Select[LucasL[Range[300]], MemberQ[ fibs, Total[ IntegerDigits[#]]]&]] (* _Harvey P. Dale_, Mar 28 2015 *)
%Y Cf. A000045, A000204.
%K base,nonn
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), Apr 15 2006
%E More terms from _Joshua Zucker_, May 11 2006
|