

A106717


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


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



