|
|
A139563
|
|
Fibonacci numbers whose digit sum is a Lucas number.
|
|
2
|
|
|
1, 2, 3, 13, 21, 34, 610, 196418, 1134903170, 20365011074, 15635695580168194910579363790217849593217, 1049252690665646467530632231274619718410203796555123147644873726135009824265250
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
196418 is a Fibonacci number whose digit sum 29 is a Lucas number.
|
|
MATHEMATICA
|
luQ[n_] := n==2 || Block[{i=1}, While[LucasL[i] < n, i++]; LucasL[i] == n]; Select[
Fibonacci[ Range[2, 400]], luQ[ Plus @@ IntegerDigits[#]] &] (* Giovanni Resta, Mar 15 2020 *)
Module[{nn=500, ln=LucasL[Range[0, 20]]}, Select[Fibonacci[Range[nn]], MemberQ[ ln, Total[ IntegerDigits[ #]]]&]]//Union (* Harvey P. Dale, Jul 01 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|