|
|
A117764
|
|
Lucas numbers for which the sum of the digits is also a Lucas number.
|
|
0
|
|
|
1, 3, 4, 7, 29, 47, 322, 2207, 1149851, 10749957122, 119218851371, 312119004989, 505019158607, 84722519070079276, 8784200221406821330636, 1473646213395791149646646123, 2657608295638762232902023676028758508503879
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
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.
|
|
MATHEMATICA
|
Module[{nn=300, luc}, luc=LucasL[Range[nn]]; Select[luc, MemberQ[luc, Total[ IntegerDigits[#]]]&]] (* Harvey P. Dale, Apr 19 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Luc Stevens (lms022(AT)yahoo.com), Apr 15 2006
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|