login
A106725
Largest of nine consecutive primes the sum of the digits of each of which is prime.
0
14387, 200177, 210109, 710663, 799961, 851203, 1104209, 1133623, 1245449, 2000281, 2442227, 2442263, 2442287, 2442289, 2442311, 2442353, 2442359, 3301217, 3514163, 5684981, 5684983, 5685023, 5834629, 5977429, 6558847
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
Sequence in context: A296813 A234678 A237788 * A253266 A190469 A237372
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
EXTENSIONS
Definition clarified by Harvey P. Dale, Jan 20 2019
STATUS
approved