A225193 - OEIS

A225193

Composite numbers such that every non-identity permutation gives a prime.

14, 16, 20, 30, 32, 34, 35, 38, 50, 70, 74, 76, 91, 92, 95, 98, 110, 118, 119, 133, 772, 775, 778, 779, 1118, 3337, 7771, 77779

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..28.

EXAMPLE

772 is a member since both 727 and 277 are primes.

MATHEMATICA

t={}; Do[p=Permutations[IntegerDigits[n]]; c=Length[p]; cn=Length[Select[Table[FromDigits[k], {k, p}], PrimeQ]]; If[!PrimeQ[n] && c>1 && cn==c-1, AppendTo[t, n]], {n, 10, 100000}]; t

PROG

(Python)

from sympy import isprime

from itertools import count, islice, permutations

def agen(): yield from (k for k in count(1) if len(set(s:=str(k)))!=1 and not isprime(k) and all((t:=int("".join(m)))==k or isprime(t) for m in permutations(s)))

print(list(islice(agen(), 28))) # Michael S. Branicky, Dec 29 2023

CROSSREFS

Cf. A003459, A068652, A068653.

Sequence in context: A007935 A076055 A068653 * A102616 A291907 A255846

Adjacent sequences: A225190 A225191 A225192 * A225194 A225195 A225196

KEYWORD

nonn,base

AUTHOR

Jayanta Basu, May 01 2013

STATUS

approved