%I #6 Apr 19 2018 17:45:07
%S 1,3,4,7,29,47,322,2207,1149851,10749957122,119218851371,312119004989,
%T 505019158607,84722519070079276,8784200221406821330636,
%U 1473646213395791149646646123,2657608295638762232902023676028758508503879
%N Lucas numbers for which the sum of the digits is also a Lucas number.
%e 1149851 is in the sequence because (1) it is a Lucas number and (2)the sum of its digits 1+1+4+9+8+5+1=29 is also a Lucas number.
%t Module[{nn=300,luc},luc=LucasL[Range[nn]];Select[luc,MemberQ[luc, Total[ IntegerDigits[#]]]&]] (* _Harvey P. Dale_, Apr 19 2018 *)
%Y Cf. A000204.
%K base,nonn
%O 0,2
%A Luc Stevens (lms022(AT)yahoo.com), Apr 15 2006
%E More terms from _Joshua Zucker_, May 11 2006
