OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Vincenzo Librandi)
EXAMPLE
Prime(1384) = 11483 which has the same digits as 1384, so 1384 belongs to the sequence.
MATHEMATICA
Select[Range[10^4], Union[IntegerDigits[ # ]] == Union[IntegerDigits[Prime[ # ]]] &]
PROG
(Python)
from sympy import nextprime
from itertools import islice
def agen():
k, pk = 1, 2
while True:
if set(str(k)) == set(str(pk)): yield k
k, pk = k+1, nextprime(pk)
print(list(islice(agen(), 41))) # Michael S. Branicky, Jul 06 2022
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Sep 23 2002
EXTENSIONS
More terms from Vincenzo Librandi, Feb 02 2014
STATUS
approved