login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052015 Primes with distinct digits in ascending order. 10
2, 3, 5, 7, 13, 17, 19, 23, 29, 37, 47, 59, 67, 79, 89, 127, 137, 139, 149, 157, 167, 179, 239, 257, 269, 347, 349, 359, 367, 379, 389, 457, 467, 479, 569, 1237, 1249, 1259, 1279, 1289, 1367, 1459, 1489, 1567, 1579, 1789, 2347, 2357, 2389, 2459, 2467, 2579 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

T. D. Noe, Table of n, a(n) for n=1..100 (complete sequence)

EXAMPLE

Last term is a(100)=23456789.

MATHEMATICA

t={}; Do[p=Prime[n]; If[Select[Differences[IntegerDigits[p]], #<=0&]=={}, AppendTo[t, p]], {n, 380}]; t (* Jayanta Basu, May 04 2013 *)

Select[Prime[Range[5000]], Min[Differences[IntegerDigits[#]]]>0&] (* Harvey P. Dale, Jun 20 2015 *)

PROG

(PARI) A052015=vecextract( vecsort( vector( 511, i, isprime( t=eval( concat( vecextract(Vec("123456789"), i ))))*t), NULL, 8), "^1") /* for old PARI versions replace, NULL, 8), "^1" by ), "-100.." */ [From M. F. Hasler, Jan 27 2009]

CROSSREFS

Cf. A028864, A028867, A052014.

Sequence in context: A049557 A042991 A162338 * A042992 A255203 A233577

Adjacent sequences:  A052012 A052013 A052014 * A052016 A052017 A052018

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.

License Agreements, Terms of Use, Privacy Policy .

Last modified October 22 02:06 EDT 2017. Contains 293756 sequences.