login
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
OFFSET
1,1
LINKS
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
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
STATUS
approved