A106725 Largest of nine consecutive primes the sum of the digits of each of which is prime.

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

Links

Table of n, a(n) for n=1..25.

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

Adjacent sequences: A106722 A106723 A106724 * A106726 A106727 A106728

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 14 2005

Extensions

Definition clarified by Harvey P. Dale, Jan 20 2019

Status

approved