

A106712


Larger prime of the set of two consecutive primes the sum of the digits of each of which is prime.


1



3, 5, 7, 11, 29, 43, 47, 67, 89, 137, 139, 157, 179, 193, 197, 199, 227, 229, 269, 283, 313, 317, 331, 337, 359, 379, 401, 409, 449, 463, 467, 577, 599, 601, 607, 643, 647, 739, 757, 809, 823, 827, 829, 883, 887, 919, 977, 1019, 1033, 1039, 1093, 1097, 1103
(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(5)=29 is a term because sum of digits of two consecutive primes i.e. 23 and 29 is prime i.e. 2+3=5 and 2+9=11.


MATHEMATICA

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


CROSSREFS

Sequence in context: A295973 A142247 A167895 * A019391 A060771 A265788
Adjacent sequences: A106709 A106710 A106711 * A106713 A106714 A106715


KEYWORD

base,nonn


AUTHOR

Shyam Sunder Gupta, May 14 2005


EXTENSIONS

Definition clarified by Harvey P. Dale, Mar 22 2017


STATUS

approved



