%I #7 Jun 24 2017 14:06:53
%S 2063,2551,3251,3253,3257,4133,4139,4373,4391,4397,7079,12071,12433,
%T 14293,14303,14321,14323,25013,27073,27077,27091,32303,33353,33997,
%U 34183,34211,35153,35753,42193,59753,67169,67181,80173,101197,102071
%N Smallest of six consecutive primes whose sum of digits is prime.
%H Harvey P. Dale, <a href="/A106719/b106719.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1)=2063 is a term because this is smallest 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 Select[Partition[Prime[Range[10000]],6,1],AllTrue[Total/@ (IntegerDigits/@ #),PrimeQ]&][[All,1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 24 2017 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, May 14 2005