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

3512057, 5920049, 5920069, 20310049, 20310089, 21030049, 24130061, 66110113, 110004067, 152100107, 208335073, 235640089, 290112161, 316230121, 361345009, 387234103, 397630069, 418590101, 419805091, 444942077, 519015071, 522909097

Offset

1,1

Links

Table of n, a(n) for n=1..22.

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

Sequence in context: A183790 A256770 A106812 * A258687 A187314 A083624

Adjacent sequences: A106808 A106809 A106810 * A106812 A106813 A106814

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 18 2005

Status

approved