

A106719


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


1



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
(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(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



