login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A180561 Primes that cannot become a different prime under any mapping of some single decimal digit <=> with some other single decimal digit. 45
11, 11779, 22669, 23333, 33533, 55333, 74279, 77999, 78857, 80603, 84871, 88177, 88747, 97039, 103091, 112181, 119701, 125813, 128147, 131143, 133499, 141587, 158771, 159979, 164341, 166063, 173933, 175781, 219613, 220279, 222601, 227387 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

Index to Primes, Primes that become a different prime under some mapping.

FORMULA

Complement of all the primes with the Union of the sequences A175791, A175789, A000001 thru A000043.

MATHEMATICA

fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, s[[1]]] || MemberQ[id, s[[2]]]) && PrimeQ[ FromDigits[id /. {s[[1]] -> s[[2]], s[[2]] -> s[[1]] }] ]]; t = Union@ Flatten@ Table[s = {j, k}; Select[ Prime@ Range@ 25000, fQ], {j, 0, 8}, {k, j + 1, 9}] ]]; Complement[ Prime@ Range@ 25000, t]

CROSSREFS

Cf. A175791, A180517 thru A180559, A175789, A180560.

Sequence in context: A228566 A228533 A088103 * A185538 A125545 A068137

Adjacent sequences:  A180558 A180559 A180560 * A180562 A180563 A180564

KEYWORD

base,nonn

AUTHOR

Zak Seidov and Robert G. Wilson v, Sep 09 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 22 03:04 EDT 2019. Contains 328315 sequences. (Running on oeis4.)