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,1

Comments

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

Links

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

Example

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.

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 *)

Crossrefs

Cf. A003459, A086402.

Sequence in context: A212723 A193573 A086042 * A109309 A263242 A294625

Adjacent sequences: A086048 A086049 A086050 * A086052 A086053 A086054

Keyword

base,nonn

Author

Chuck Seggelin (barkeep(AT)plastereddragon.com), Jul 07 2003

Status

approved