A073069 Indices of primes with non-distinct digits.

5, 26, 30, 32, 36, 42, 43, 46, 47, 48, 49, 50, 51, 59, 64, 65, 67, 68, 71, 74, 76, 84, 86, 87, 95, 102, 106, 109, 121, 123, 129, 130, 134, 137, 138, 139, 141, 151, 152, 153, 154, 156, 157, 158, 165, 167, 168, 169, 170, 171, 172, 173, 174, 177, 178, 182, 185, 186

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Formula

a(n) = A000720(A073064(n)).

Maple

q:= n-> (l-> nops(l)<>nops({l[]}))(convert(ithprime(n), base, 10)):
select(q, [$1..186])[];  # Alois P. Heinz, Jan 17 2026

Mathematica

ta=IntegerDigits[Prime[Range[1000]]]; ta2=Table[Length[ta[[i]]]>Length[Union[ta[[i]]]], {i, 1000}]; Flatten[Position[ta2, True]]
Select[Range[200], !DuplicateFreeQ[IntegerDigits[Prime[#]]] &] (* Paolo Xausa, Jan 17 2026 *)

Prog

(Python)
from sympy import prime, primerange
def ok(p): s = str(p); return len(set(s)) < len(s)
def aupto(limit):
  alst = []
  for pi, p in enumerate(primerange(1, prime(limit)+1), start = 1):
    if ok(p): alst.append(pi)
  return alst
print(aupto(186)) # Michael S. Branicky, May 26 2021

Crossrefs

Indices of primes in A073064.

Cf. A000720, A030291.

Sequence in context: A259207 A300005 A048269 * A042281 A041625 A207472

Adjacent sequences: A073066 A073067 A073068 * A073070 A073071 A073072

Keyword

easy,base,nonn

Author

Zak Seidov, Aug 24 2002

Status

approved