The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #4 Dec 21 2015 14:11:43
%S 3512057,5920049,5920069,20310049,20310089,21030049,24130061,66110113,
%T 110004067,152100107,208335073,235640089,290112161,316230121,
%U 361345009,387234103,397630069,418590101,419805091,444942077,519015071,522909097
%N Largest prime of the set of seven consecutive primes whose sum of digits is a set of seven distinct primes.
%e a(1)=3512057 is a term because sum of digits of seven consecutive primes i.e. (3511973, 3511993, 3511999, 3512011, 3512051, 3512053, 3512057), whose sum of digits (i.e. 29, 31, 37, 13, 17, 19, 23)is a set of seven distinct primes.
%t sd7dpQ[n_]:=Module[{sd=Total/@IntegerDigits[n]},Length[Union[sd]]== 7 && AllTrue[ sd,PrimeQ]]; Transpose[Select[Partition[Prime[Range[ 28*10^6]], 7,1],sd7dpQ]][[7]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 21 2015 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, May 18 2005