A106723 Smallest of eight consecutive primes whose sum of digits is prime.

3251, 4373, 14293, 14303, 27073, 106103, 200041, 200063, 210011, 210019, 549977, 710573, 710599, 799817, 799837, 851113, 851117, 1045021, 1063319, 1101071, 1102001, 1104113, 1104119, 1133513, 1133519, 1245227, 1245281, 1436003

Offset

1,1

Links

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

Example

a(1)=3251 is a term because this is smallest of eight consecutive primes i.e. 3251,3253,3257,3259,3271,3299,3301 and 3307, whose sum of digits is prime i.e. 3+2+5+1=11, 3+2+5+3=13, 3+2+5+7=17, 3+2+5+9=19, 3+2+7+1=13, 3+2+9+9=23,3+3+0+1=7 and 3+3+0+7=13.

Mathematica

Transpose[Select[Partition[Prime[Range[110000]], 8, 1], AllTrue[Total/@( IntegerDigits/@ #), PrimeQ]&]][[1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 25 2015 *)

Crossrefs

Sequence in context: A251501 A106722 A031555 * A270799 A031735 A144936

Adjacent sequences: A106720 A106721 A106722 * A106724 A106725 A106726

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 14 2005

Status

approved