OFFSET
1,1
EXAMPLE
a(1)=14387 is a term because this is Largest of nine consecutive primes i.e. 14293,14303,14321,14323,14327,14341,14347,14369 and 14387, whose sum of digits is prime i.e. 1+4+2+9+3=19, 1+4+3+0+3=11, 1+4+3+2+1=11, 1+4+3+2+3=13, 1+4+3+2+7=17, 1+4+3+4+1=13,1+4+3+4+7=19, 1+4+3+6+9=23 and 1+4+3+8+7=23.
MATHEMATICA
sdpQ[n_]:=AllTrue[Total/@(IntegerDigits/@n), PrimeQ]; Select[Partition[ Prime[ Range[45*10^4]], 9, 1], sdpQ][[All, -1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 20 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
EXTENSIONS
Definition clarified by Harvey P. Dale, Jan 20 2019
STATUS
approved