login
A261511
Twin primes with both terms having distinct digits in descending order.
0
3, 5, 7, 41, 43, 71, 73, 641, 643, 76541, 76543, 87641, 87643
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
Sequence in context: A163797 A339900 A130536 * A146972 A102742 A363965
KEYWORD
nonn,easy,fini,full,base
AUTHOR
Paolo Omodei-Zorini, Aug 22 2015
STATUS
approved