login
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
OFFSET
1,1
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
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 18 2005
STATUS
approved