|
%I #13 Jul 01 2022 18:41:44
%S 1,2,3,13,21,34,610,196418,1134903170,20365011074,
%T 15635695580168194910579363790217849593217,
%U 1049252690665646467530632231274619718410203796555123147644873726135009824265250
%N Fibonacci numbers whose digit sum is a Lucas number.
%C Depending on whether the Lucas numbers are defined by A000032 or by A000204, one obtains this sequence here or A117766. - _R. J. Mathar_, Nov 03 2008
%C The next term (a(13)) has 108 digits. - _Harvey P. Dale_, Jul 01 2022
%e 196418 is a Fibonacci number whose digit sum 29 is a Lucas number.
%t luQ[n_] := n==2 || Block[{i=1}, While[LucasL[i] < n, i++]; LucasL[i] == n]; Select[
%t Fibonacci[ Range[2, 400]], luQ[ Plus @@ IntegerDigits[#]] &] (* _Giovanni Resta_, Mar 15 2020 *)
%t Module[{nn=500,ln=LucasL[Range[0,20]]},Select[Fibonacci[Range[nn]],MemberQ[ ln,Total[ IntegerDigits[ #]]]&]]//Union (* _Harvey P. Dale_, Jul 01 2022 *)
%Y Cf. A000032, A000045, A004090, A117766.
%K nonn,base,less
%O 1,2
%A _Parthasarathy Nambi_, Jun 11 2008
%E 1 added in front by _R. J. Mathar_, Nov 03 2008
%E More terms from _Jinyuan Wang_, Mar 15 2020
|
