OFFSET
1,1
COMMENTS
This sequence has 283086 terms, the last being 987654103 = A007810(9). - Jud McCranie
Intersection of A010784 and A000040; A178788(a(n)) * A010051(a(n)) = 1. [Reinhard Zumkeller, Sep 25 2011]
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..283086, full sequence
Patrick De Geest, World!Of Numbers
MATHEMATICA
t={}; Do[p=Prime[n]; If[Select[Transpose[Tally[IntegerDigits[p]]][[2]], #>1 &]=={}, AppendTo[t, p]], {n, 77}]; t (* Jayanta Basu, May 04 2013 *)
Select[Prime[Range[80]], Max[DigitCount[#]]<2&] (* Harvey P. Dale, Sep 13 2020 *)
PROG
(Haskell)
a029743 n = a029743_list !! (n-1)
a029743_list = filter ((== 1) . a010051) a010784_list
-- Reinhard Zumkeller, Sep 25 2011
(Python)
from sympy import isprime
from itertools import permutations as P
dist = [p for d in range(1, 11) for p in P("0123456789", d) if p[0] != "0"]
afull = [t for t in (int("".join(p)) for p in dist) if isprime(t)]
print(afull[:100]) # Michael S. Branicky, Aug 04 2022
CROSSREFS
KEYWORD
nonn,fini,full,base
AUTHOR
STATUS
approved