The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 19 17:59 EST 2020. Contains 331051 sequences. (Running on oeis4.)