%I #7 Dec 25 2015 19:18:23
%S 3251,4373,14293,14303,27073,106103,200041,200063,210011,210019,
%T 549977,710573,710599,799817,799837,851113,851117,1045021,1063319,
%U 1101071,1102001,1104113,1104119,1133513,1133519,1245227,1245281,1436003
%N Smallest of eight consecutive primes whose sum of digits is prime.
%H Harvey P. Dale, <a href="/A106723/b106723.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1)=3251 is a term because this is smallest of eight consecutive primes i.e. 3251,3253,3257,3259,3271,3299,3301 and 3307, whose sum of digits is prime i.e. 3+2+5+1=11, 3+2+5+3=13, 3+2+5+7=17, 3+2+5+9=19, 3+2+7+1=13, 3+2+9+9=23,3+3+0+1=7 and 3+3+0+7=13.
%t Transpose[Select[Partition[Prime[Range[110000]],8,1],AllTrue[Total/@( IntegerDigits/@ #),PrimeQ]&]][[1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 25 2015 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, May 14 2005
|