OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..720
EXAMPLE
199 is in the sequence because (1) it is a Lucas number and (2) the sum of its digits 1+9+9=19 is a prime number.
MATHEMATICA
Join[{1}, Select[LucasL[Range[100]], PrimeQ[Total[IntegerDigits[#]]]&]] (* Harvey P. Dale, Sep 16 2022 *)
PROG
(Python)
from sympy import isprime
A117790_list, a, b = [1], 1, 3
for _ in range(10**6):
if isprime(sum(int(d) for d in str(b))):
A117790_list.append(b)
a, b = b, a+b # Chai Wah Wu, Dec 25 2015
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 15 2006
EXTENSIONS
a(6) corrected by Klaus Brockhaus, Apr 17 2006
STATUS
approved