login
Lucas numbers for which the sum of the digits is also a Lucas number.
0

%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