login
A073069
Indices of primes with non-distinct digits.
2
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
MATHEMATICA
ta=IntegerDigits[Prime[Range[1000]]]; ta2=Table[Length[ta[[i]]]>Length[Union[ta[[i]]]], {i, 1000}]; Flatten[Position[ta2, True]]
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. A030291.
Sequence in context: A259207 A300005 A048269 * A042281 A041625 A207472
KEYWORD
easy,base,nonn
AUTHOR
Zak Seidov Aug 24 2002
STATUS
approved