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

Author

Zak Seidov Aug 24 2002

Keywords

• easy
• base
• nonn

Crossrefs

Indices of primes in A073064. Cf. A030291.

Programs

Mathematica

ta=IntegerDigits[Prime[Range[1000]]]; ta2=Table[Length[ta[[i]]]>Length[Union[ta[[i]]]], {i, 1000}]; Flatten[Position[ta2, True]]

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