A106719 Smallest of six consecutive primes whose sum of digits is prime.

2063, 2551, 3251, 3253, 3257, 4133, 4139, 4373, 4391, 4397, 7079, 12071, 12433, 14293, 14303, 14321, 14323, 25013, 27073, 27077, 27091, 32303, 33353, 33997, 34183, 34211, 35153, 35753, 42193, 59753, 67169, 67181, 80173, 101197, 102071

Offset

1,1

Links

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

Example

a(1)=2063 is a term because this is smallest of six consecutive primes i.e. 2063,2069,2081,2083,2087 and 2089, whose sum of digits is prime i.e. 2+0+6+3=11, 2+0+6+9=17, 2+0+8+1=11, 2+0+8+3=13, 2+0+8+7=17 and 2+0+8+9=19.

Mathematica

Select[Partition[Prime[Range[10000]], 6, 1], AllTrue[Total/@ (IntegerDigits/@ #), PrimeQ]&][[All, 1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 24 2017 *)

Crossrefs

Sequence in context: A237178 A184227 A203351 * A119722 A234110 A200203

Adjacent sequences: A106716 A106717 A106718 * A106720 A106721 A106722

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 14 2005

Status

approved