login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A028867 Primes with digits in nonincreasing order. 9
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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 8 14:52 EDT 2020. Contains 333314 sequences. (Running on oeis4.)