A086051 Nontrivial numbers which are prime, contain no zero digits and yield another prime when their digits are sorted in ascending order.

31, 71, 73, 97, 131, 173, 193, 197, 271, 293, 311, 317, 373, 397, 419, 439, 491, 547, 571, 593, 617, 647, 659, 673, 719, 727, 733, 739, 743, 751, 757, 761, 839, 919, 937, 941, 947, 953, 971, 983, 991, 1171, 1213, 1231, 1291, 1297, 1321, 1327, 1429, 1549

Offset: 1

Author

Chuck Seggelin, Jul 07 2003

Keywords

• base
• nonn

Comments

Primes with digits already in ascending order (like 13 and 2357) are trivial cases and are therefore excluded.

Examples

			a(1)=31 because an ascending sort of 31's digits yields 13 which is also prime. a(100)=3527 because an ascending sort of 3527's digits yields 2357 which is also prime.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A003459, A086402.

Programs

Mathematica

sdaQ[n_]:=Module[{idn=IntegerDigits[n],srt},srt=Sort[idn];!MemberQ[ idn,0] &&idn!=srt&&PrimeQ[FromDigits[srt]]]; Select[Prime[Range[300]],sdaQ] (* Harvey P. Dale, Dec 14 2014 *)