A106720 Largest of six consecutive primes the sum of the digits of each of which is prime.

2089, 2609, 3299, 3301, 3307, 4177, 4201, 4423, 4441, 4447, 7129, 12109, 12479, 14341, 14347, 14369, 14387, 25073, 27109, 27127, 27143, 32341, 33409, 34057, 34253, 34259, 35227, 35803, 42227, 59809, 67213, 67217, 80221, 101267, 102107

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

a(1)=2089 is a term because this is Largest of six consecutive primes i.e. 2063,2069,2081,2083,2087 and 2089, whose sum of digits is prime i.e. 2+0+6+3=11, 2+0+6+9=17, 2+0+8+1=11, 2+0+8+3=13, 2+0+8+7=17 and 2+0+8+9=19.

Mathematica

idprQ[n_]:=PrimeQ[Total[IntegerDigits[n]]]; Transpose[Select[ Partition[ Prime[ Range[ 10000]], 6, 1], And@@idprQ/@#&]][[6]] (* Harvey P. Dale, Dec 05 2014 *)

Crossrefs

Sequence in context: A255146 A293106 A221360 * A179124 A206606 A089159

Adjacent sequences: A106717 A106718 A106719 * A106721 A106722 A106723

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 14 2005

Extensions

Definition clarified by Harvey P. Dale, Dec 05 2014

Status

approved