cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-30 of 48 results. Next

A180533 Primes that become a different prime under the mapping 2 <=> 3.

Original entry on oeis.org

2, 3, 127, 137, 211, 227, 311, 337, 421, 431, 829, 839, 1021, 1031, 1201, 1231, 1237, 1301, 1321, 1327, 1429, 1439, 1627, 1637, 2011, 2027, 2089, 2131, 2207, 2221, 2239, 2309, 2339, 2351, 2357, 2371, 2399, 2467, 2539, 2557, 2617, 2621, 2659, 2671, 2677
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 2] || MemberQ[id, 3]) && PrimeQ[ FromDigits[ id /. {2 -> 3, 3 -> 2}] ]]; Select[ Prime@ Range@ 400, fQ]

A180534 Primes that become a different prime under the mapping 2 <=> 4.

Original entry on oeis.org

23, 43, 223, 229, 233, 239, 241, 257, 263, 421, 433, 439, 443, 449, 457, 463, 521, 541, 1249, 1259, 1283, 1289, 1429, 1459, 1483, 1489, 1523, 1543, 1721, 1741, 2003, 2029, 2099, 2111, 2153, 2221, 2243, 2251, 2281, 2293, 2339, 2347, 2357, 2411, 2417, 2423
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 2] || MemberQ[id, 4]) && PrimeQ[ FromDigits[ id /. {2 -> 4, 4 -> 2}] ]]; Select[ Prime@ Range@ 400, fQ]

A180535 Primes that become a different prime under the mapping 2 <=> 5.

Original entry on oeis.org

2, 5, 23, 29, 53, 59, 127, 157, 227, 241, 251, 263, 269, 271, 277, 293, 521, 541, 557, 563, 569, 571, 577, 593, 727, 757, 823, 827, 829, 853, 857, 859, 1021, 1051, 1123, 1153, 1223, 1229, 1231, 1249, 1279, 1283, 1297, 1423, 1429, 1453, 1459, 1531, 1549
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 2] || MemberQ[id, 5]) && PrimeQ[ FromDigits[ id /. {2 -> 5, 5 -> 2}] ]]; Select[ Prime@ Range@ 250, fQ]

A180536 Primes that become a different prime under the mapping 2 <=> 6.

Original entry on oeis.org

127, 167, 241, 277, 283, 421, 461, 523, 563, 641, 677, 683, 823, 863, 1021, 1061, 1123, 1163, 1201, 1213, 1223, 1229, 1237, 1297, 1321, 1327, 1361, 1367, 1601, 1613, 1637, 1663, 1669, 1697, 2011, 2027, 2053, 2069, 2089, 2113, 2131, 2143, 2161, 2207, 2221
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 2] || MemberQ[id, 6]) && PrimeQ[ FromDigits[ id /. {2 -> 6, 6 -> 2}] ]]; Select[ Prime@ Range@ 350, fQ]

A180537 Primes that become a different prime under the mapping 2 <=> 7.

Original entry on oeis.org

2, 7, 23, 29, 73, 79, 223, 233, 239, 251, 269, 521, 571, 733, 739, 751, 769, 773, 1259, 1283, 1289, 1759, 1783, 1789, 1823, 1873, 2029, 2039, 2069, 2179, 2203, 2273, 2293, 2309, 2333, 2351, 2371, 2393, 2411, 2459, 2549, 2579, 2591, 2671, 2699, 2711, 2713
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 2] || MemberQ[id, 7]) && PrimeQ[ FromDigits[ id /. {2 -> 7, 7 -> 2}] ]]; Select[ Prime@ Range@ 400, fQ]

A180538 Primes that become a different prime under the mapping 2 <=> 8.

Original entry on oeis.org

23, 29, 83, 89, 211, 223, 227, 239, 257, 263, 277, 281, 283, 727, 787, 811, 821, 823, 839, 857, 863, 877, 883, 887, 1201, 1229, 1231, 1277, 1279, 1283, 1321, 1381, 1423, 1427, 1429, 1483, 1487, 1489, 1523, 1583, 1723, 1783, 1801, 1823, 1831, 1877, 1879
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 2] || MemberQ[id, 8]) && PrimeQ[ FromDigits[ id /. {2 -> 8, 8 -> 2}] ]]; Select[ Prime@ Range@ 300, fQ]

A180539 Primes that become a different prime under the mapping 2 <=> 9.

Original entry on oeis.org

127, 197, 211, 227, 241, 271, 277, 283, 421, 491, 523, 593, 727, 797, 911, 941, 971, 977, 983, 997, 1021, 1091, 1123, 1193, 1201, 1213, 1223, 1231, 1423, 1493, 1627, 1697, 1901, 1913, 1931, 1993, 2011, 2137, 2161, 2207, 2267, 2273, 2293, 2311, 2341
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 2] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {2 -> 9, 9 -> 2}] ]]; Select[ Prime@ Range@ 350, fQ]

A180540 Primes that become a different prime under the mapping 3 <=> 4.

Original entry on oeis.org

31, 37, 41, 47, 139, 149, 349, 367, 379, 439, 467, 479, 631, 641, 937, 947, 1039, 1049, 1327, 1381, 1399, 1427, 1481, 1499, 2131, 2141, 2311, 2347, 2377, 2411, 2437, 2477, 2539, 2549, 2731, 2741, 3001, 3019, 3079, 3217, 3229, 3259, 3271, 3331, 3449, 3457
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 3] || MemberQ[id, 4]) && PrimeQ[ FromDigits[ id /. {3 -> 4, 4 -> 3}] ]]; Select[ Prime@ Range@ 500, fQ]

A180541 Primes that become a different prime under the mapping 3 <=> 5.

Original entry on oeis.org

3, 5, 131, 137, 151, 157, 337, 347, 547, 557, 839, 859, 1031, 1051, 1367, 1439, 1459, 1567, 1637, 1657, 1931, 1951, 2351, 2531, 2837, 2857, 3011, 3119, 3167, 3209, 3251, 3257, 3301, 3307, 3319, 3391, 3407, 3449, 3457, 3547, 3581, 3631, 3637, 3659, 3701
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Maple
    filter:= proc(n) local L,Lp,i,x;
  if not isprime(n) then return false fi;
  L:= convert(n,base,10);
  Lp:= subs([3=5,5=3],L);
  if L=Lp then return false fi;
  isprime(add(Lp[i]*10^(i-1),i=1..nops(Lp)))
end proc:
select(filter, [seq(i,i=3..10000,2)]); # Robert Israel, Jul 28 2020
  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 3] || MemberQ[id, 5]) && PrimeQ[ FromDigits[ id /. {3 -> 5, 5 -> 3}] ]]; Select[ Prime@ Range@ 550, fQ]

A180542 Primes that become a different prime under the mapping 3 <=> 6.

Original entry on oeis.org

31, 37, 61, 67, 137, 167, 239, 269, 307, 317, 331, 347, 359, 431, 461, 607, 617, 647, 659, 661, 739, 769, 937, 967, 1031, 1039, 1061, 1069, 1301, 1307, 1319, 1321, 1327, 1367, 1399, 1601, 1607, 1619, 1621, 1627, 1637, 1699, 1831, 1861, 2039, 2069, 2131
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 3] || MemberQ[id, 6]) && PrimeQ[ FromDigits[ id /. {3 -> 6, 6 -> 3}] ]]; Select[ Prime@ Range@ 350, fQ]
Previous Showing 21-30 of 48 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.