A106717 Largest of five consecutive primes the sum of the digits of each of which is prime.

11, 337, 1109, 1307, 2087, 2089, 2593, 2609, 3187, 3271, 3299, 3301, 3307, 3691, 4159, 4177, 4201, 4421, 4423, 4441, 4447, 5437, 7127, 7129, 7457, 8627, 9859, 10103, 12107, 12109, 12347, 12473, 12479, 13009, 14327, 14341, 14347, 14369, 14387

Offset

1,1

Links

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

Example

a(2)=337 is a term because this is Largest of five consecutive primes i.e. 311,313,317,331 and 337, whose sum of digits is prime i.e. 3+1+1=5, 3+1+3=7, 3+1+7=11, 3+3+1=7 and 3+3+7=13.

Mathematica

Transpose[Select[Partition[Prime[Range[2000]], 5, 1], AllTrue[Total/@ (IntegerDigits/@ #), PrimeQ]&]]//Last (* or *) Prime[#]&/@Transpose[ SequencePosition[ Table[ If[ PrimeQ[Total[IntegerDigits[n]]], 1, 0], {n, Prime[Range[2000]]}], {1, 1, 1, 1, 1}]][[2]] (* The programs use the AllTrue and SequencePosition functions from Mathematica version 10 *) (* Harvey P. Dale, Jul 14 2016 *)

Crossrefs

Sequence in context: A107441 A086923 A206532 * A215015 A219072 A280669

Adjacent sequences: A106714 A106715 A106716 * A106718 A106719 A106720

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 14 2005

Extensions

Definition clarified by Harvey P. Dale, Jul 14 2016

Status

approved