The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A028867 Primes with digits in nonincreasing order. 10
 2, 3, 5, 7, 11, 31, 41, 43, 53, 61, 71, 73, 83, 97, 211, 311, 331, 421, 431, 433, 443, 521, 541, 631, 641, 643, 653, 661, 733, 743, 751, 761, 773, 811, 821, 853, 863, 877, 881, 883, 887, 911, 941, 953, 971, 977, 983, 991, 997, 2111, 2221, 3221 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS T. D. Noe and Alois P. Heinz, Table of n, a(n) for n = 1..10000 (terms n = 1..1000 from T. D. Noe) MATHEMATICA t={}; Do[p=Prime[n]; If[Select[Differences[IntegerDigits[p]], #>0&]=={}, AppendTo[t, p]], {n, 460}]; t (* Jayanta Basu, May 04 2013 *) Select[Prime[Range[600]], Max[Differences[IntegerDigits[#]]]<1&] (* Harvey P. Dale, Oct 30 2013 *) PROG (PARI) is(n)=my(d=digits(n)); for(i=2, #d, if(d[i]>d[i-1], return(0))); isprime(n) \\ Charles R Greathouse IV, Aug 18 2017 CROSSREFS Cf. A052014, A028864, A052015. Sequence in context: A155081 A157158 A155833 * A104154 A123214 A119834 Adjacent sequences: A028864 A028865 A028866 * A028868 A028869 A028870 KEYWORD nonn,base AUTHOR Patrick De Geest EXTENSIONS Definition corrected by Omar E. Pol, Mar 22 2012 STATUS approved

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

Last modified September 29 02:45 EDT 2023. Contains 365749 sequences. (Running on oeis4.)