cp's OEIS Frontend

A074350 Numbers n such that n and the n-th prime have the same digits.

%I A074350 #12 Jul 06 2022 19:08:47
%S A074350 321,1384,1395,2632,3751,4980,5790,6106,6331,6347,6397,6432,6457,6581,
%T A074350 6714,6780,6931,7119,7192,7341,7345,7384,7795,7908,8305,8351,8355,
%U A074350 9154,9551,10126,10136,10169,10217,10391,10396,10703,12337,12434,12933,13054,13074
%N A074350 Numbers n such that n and the n-th prime have the same digits.
%H A074350 Michael S. Branicky, <a href="/A074350/b074350.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Vincenzo Librandi)
%e A074350 Prime(1384) = 11483 which has the same digits as 1384, so 1384 belongs to the sequence.
%t A074350 Select[Range[10^4], Union[IntegerDigits[ # ]] == Union[IntegerDigits[Prime[ # ]]] &]
%o A074350 (Python)
%o A074350 from sympy import nextprime
%o A074350 from itertools import islice
%o A074350 def agen():
%o A074350     k, pk = 1, 2
%o A074350     while True:
%o A074350         if set(str(k)) == set(str(pk)): yield k
%o A074350         k, pk = k+1, nextprime(pk)
%o A074350 print(list(islice(agen(), 41))) # _Michael S. Branicky_, Jul 06 2022
%Y A074350 Cf. A000040.
%K A074350 base,nonn
%O A074350 1,1
%A A074350 _Joseph L. Pe_, Sep 23 2002
%E A074350 More terms from _Vincenzo Librandi_, Feb 02 2014