login
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
OFFSET
1,1
LINKS
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
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
EXTENSIONS
Definition clarified by Harvey P. Dale, Mar 22 2017
STATUS
approved