login
A173719
Sums of 2 successive primes s = prime(m) + prime(m+1) such that all digits of s are primes.
0
5, 52, 222, 352, 372, 532, 752, 772, 2252, 2352, 2572, 3222, 3232, 5322, 7572, 22332, 22552, 22722, 22752, 23572, 25232, 25572, 27232, 27522, 27732, 32732, 33522, 33772, 35232, 35572, 35772, 37332, 52232, 52332, 52372, 53772, 55552, 57332, 72532, 72772, 75252, 75732, 77322, 222532, 222572, 223552, 223572
OFFSET
1,1
EXAMPLE
5 = 2 + 3, 52 = 23 + 29.
PROG
(PARI){a=2; b=3; for(n=1, 12000, s=a+b; ev=eval(Vec(Str(s))); if(sum(k=1, #ev, isprime(ev[k]))==#ev, print1(s", ")); a=b; b=nextprime(b+2))}
CROSSREFS
Intersection of A001043 and A046034.
Sequence in context: A067282 A045539 A281202 * A081075 A247766 A247777
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Dec 22 2012
STATUS
approved