A106726 Smallest of nine consecutive primes whose sum of digits is prime.

14293, 200041, 210011, 710573, 799817, 851113, 1104113, 1133513, 1245227, 2000153, 2442113, 2442133, 2442151, 2442173, 2442179, 2442191, 2442197, 3301037, 3513997, 5684891, 5684909, 5684927, 5834513, 5977333, 6558733

Offset

1,1

Links

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

Example

a(1)=14293 is a term because this is smallest 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

ncpQ[lst_]:=AllTrue[Total[IntegerDigits[#]]&/@lst, PrimeQ]; Transpose[ Select[ Partition[ Prime[Range[450000]], 9, 1], ncpQ]][[1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 04 2014 *)

Crossrefs

Sequence in context: A034232 A233889 A115554 * A064965 A072890 A249314

Adjacent sequences: A106723 A106724 A106725 * A106727 A106728 A106729

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 14 2005

Status

approved