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 *)
Select[FromDigits@# &/@Subsets@Range@9, PrimeQ] (* Hans Rudolf Widmer, Apr 08 2023 *)
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.." */ \\ M. F. Hasler, Jan 27 2009
(Python)
from sympy import isprime
from itertools import combinations
def agen(): # generator of terms
for d in range(1, 9):
for c in combinations("123456789", d):
if isprime(t:=int("".join(c))):
yield t
print(list(agen())) # Michael S. Branicky, Dec 13 2023
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Patrick De Geest, Nov 15 1999
STATUS
approved