This site is supported by donations to The OEIS Foundation.

 Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A052014 Primes with distinct digits in descending order. 9
 2, 3, 5, 7, 31, 41, 43, 53, 61, 71, 73, 83, 97, 421, 431, 521, 541, 631, 641, 643, 653, 743, 751, 761, 821, 853, 863, 941, 953, 971, 983, 5431, 6421, 6521, 7321, 7541, 7621, 7643, 8431, 8521, 8543, 8641, 8731, 8741, 8753, 8761, 9421, 9431, 9521, 9631, 9643 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Last term is a(87) = 98765431. LINKS M. F. Hasler, Table of n, a(n) for n = 1..87. [The full list of terms.] MATHEMATICA Select[Prime[Range[1200]], Max[DigitCount[#]] == 1 && And@@Negative[ Differences[IntegerDigits[#]]]&] (* Harvey P. Dale, Oct 22 2011 *) t={}; Do[p=Prime[n]; If[Select[Differences[IntegerDigits[p]], # >= 0&] == {}, AppendTo[t, p]], {n, 1195}]; t (* Jayanta Basu, May 04 2013 *) PROG (PARI) A052014=[]; for( i=1, 1023, c=-1; isprime( t=sum( j=0, 9, if(bittest(i, j), j*10^c++))) & A052014=concat(A052014, t)); A052014=vecsort(A052014) CROSSREFS Cf. A000040, A028867, A028864, A052015. Sequence in context: A287945 A238850 A245064 * A236255 A090711 A067907 Adjacent sequences:  A052011 A052012 A052013 * A052015 A052016 A052017 KEYWORD nonn,base,fini,full AUTHOR Patrick De Geest, Nov 15 1999. STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.