OFFSET
1,1
COMMENTS
This was essentially the original definition of A158284 but the given terms to that sequence did not match this definition.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
3929 and 3931 are twin primes and both have two prime digits.
MATHEMATICA
Select[Partition[Prime[Range[2000]], 2, 1], #[[2]]-#[[1]]==2 && Count[ IntegerDigits[#[[1]]], _?PrimeQ]==Count[IntegerDigits[#[[2]]], _?PrimeQ]&]//Flatten
PROG
(PARI) ct(n)=my(d=digits(n)); sum(i=1, #d, isprime(d[i]))
do(lim)=my(v=List(), p=3); forprime(q=5, lim+2, if(q-p==2 && ct(p)==ct(q), listput(v, p); listput(v, q)); p=q); Vec(v) \\ Charles R Greathouse IV, Dec 05 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Dec 04 2017
STATUS
approved