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