OFFSET
1,1
COMMENTS
Numbers in this list are the pairs of twin primes listed in A052014 with both terms having distinct digits in descending order
MATHEMATICA
dsc[n_] := 0 > Max@ Differences@ IntegerDigits@n; Union@ Flatten@ Select[ Partition[ Prime@ Range@ 9000, 2, 1], #[[2]] - #[[1]] == 2 && And @@ dsc /@ # &] (* Giovanni Resta, Aug 26 2015 *)
PROG
(PARI) lista(nn=100000) = {v = []; forprime(p=2, nn, if (isprime(p+2) && (d=digits(p)) && (vecsort(d, , 12)==d) && (dd=digits(p+2)) && (vecsort(dd, , 12)==dd), v = concat(v, p); v = concat(v, p+2)); ); vecsort(v, , 8); } \\ Michel Marcus, Aug 23 2015
CROSSREFS
KEYWORD
nonn,easy,fini,full,base
AUTHOR
Paolo Omodei-Zorini, Aug 22 2015
STATUS
approved