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

102301, 420029, 579017, 1440037, 1725079, 2541043, 3116039, 3250067, 3343097, 3512053, 3512057, 5920043, 5920049, 5920069, 5971061, 7816009, 9675013, 9675037, 10102289, 11201039, 13642003, 14304029, 14671039, 18320111, 18998101

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..250

Example

a(1)=102301 is a term because sum of digits of six consecutive primes i.e., (102251, 102253, 102259, 102293, 102299, 102301), whose sum of digits (i.e., 11, 13, 19, 17, 23, 7) is a set of six distinct primes.

Mathematica

sdpQ[lst_]:=Module[{sod=Total[IntegerDigits[#]]&/@lst}, Length[Union[sod]] == 6 && AllTrue[sod, PrimeQ]]; Transpose[Select[Partition[Prime[Range[ 1250000]], 6, 1], sdpQ]][[6]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 11 2014 *)

Crossrefs

Sequence in context: A186096 A186088 A186087 * A220076 A235694 A235158

Adjacent sequences: A106811 A106812 A106813 * A106815 A106816 A106817

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 18 2005

Status

approved