

A106811


Largest prime of the set of seven consecutive primes whose sum of digits is a set of seven distinct primes.


0



3512057, 5920049, 5920069, 20310049, 20310089, 21030049, 24130061, 66110113, 110004067, 152100107, 208335073, 235640089, 290112161, 316230121, 361345009, 387234103, 397630069, 418590101, 419805091, 444942077, 519015071, 522909097
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



EXAMPLE

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.


MATHEMATICA

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 *)


CROSSREFS



KEYWORD

base,nonn


AUTHOR



STATUS

approved



