%I #7 Dec 05 2014 11:01:02
%S 2089,2609,3299,3301,3307,4177,4201,4423,4441,4447,7129,12109,12479,
%T 14341,14347,14369,14387,25073,27109,27127,27143,32341,33409,34057,
%U 34253,34259,35227,35803,42227,59809,67213,67217,80221,101267,102107
%N Largest of six consecutive primes the sum of the digits of each of which is prime.
%H Harvey P. Dale, <a href="/A106720/b106720.txt">Table of n, a(n) for n = 1..1000</a>
%e 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.
%t idprQ[n_]:=PrimeQ[Total[IntegerDigits[n]]]; Transpose[Select[ Partition[ Prime[ Range[ 10000]],6,1],And@@idprQ/@#&]][[6]] (* _Harvey P. Dale_, Dec 05 2014 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, May 14 2005
%E Definition clarified by _Harvey P. Dale_, Dec 05 2014
|