|
%I #26 Aug 31 2015 10:19:36
%S 3,5,7,41,43,71,73,641,643,76541,76543,87641,87643
%N Twin primes with both terms having distinct digits in descending order.
%C Numbers in this list are the pairs of twin primes listed in A052014 with both terms having distinct digits in descending order
%t 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 *)
%o (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
%Y Cf. A001097, A052014.
%K nonn,easy,fini,full,base
%O 1,1
%A _Paolo Omodei-Zorini_, Aug 22 2015
|
