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 31-40 of 48 results. Next

A180543 Primes that become a different prime under the mapping 3 <=> 7.

Original entry on oeis.org

3, 7, 13, 17, 31, 37, 43, 47, 71, 73, 103, 107, 137, 139, 163, 167, 173, 179, 193, 197, 223, 227, 233, 277, 337, 347, 353, 379, 383, 439, 463, 467, 479, 613, 617, 643, 647, 739, 743, 757, 773, 787, 823, 827, 853, 857, 883, 887, 1093, 1097, 1213, 1217, 1321
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

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

A180544 Primes that become a different prime under the mapping 3 <=> 8.

Original entry on oeis.org

131, 181, 311, 331, 337, 359, 389, 811, 839, 859, 881, 887, 1301, 1361, 1367, 1381, 1439, 1489, 1801, 1831, 1861, 1867, 2039, 2089, 2237, 2287, 2351, 2357, 2851, 2857, 3011, 3037, 3089, 3167, 3191, 3209, 3221, 3307, 3319, 3361, 3389, 3461, 3467, 3527
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

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

A180545 Primes that become a different prime under the mapping 3 <=> 9.

Original entry on oeis.org

13, 19, 23, 29, 37, 53, 59, 73, 79, 83, 89, 97, 103, 109, 131, 137, 139, 173, 179, 191, 193, 197, 223, 229, 239, 263, 269, 293, 307, 311, 313, 331, 337, 347, 359, 367, 389, 397, 431, 433, 443, 449, 491, 499, 503, 509, 563, 569, 613, 619, 631, 653, 659, 691
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

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

A180546 Primes that become a different prime under the mapping 4 <=> 5.

Original entry on oeis.org

43, 53, 241, 251, 349, 359, 409, 421, 457, 463, 487, 499, 509, 521, 547, 563, 587, 599, 643, 653, 1249, 1259, 1423, 1453, 1459, 1471, 1483, 1523, 1543, 1549, 1571, 1583, 2143, 2153, 2341, 2347, 2351, 2357, 2441, 2447, 2459, 2549, 2551, 2557, 2647, 2657
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

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

A180547 Primes that become a different prime under the mapping 4 <=> 6.

Original entry on oeis.org

41, 47, 61, 67, 347, 367, 401, 419, 431, 461, 463, 467, 491, 601, 619, 631, 641, 643, 647, 691, 947, 967, 1049, 1069, 1409, 1427, 1447, 1493, 1499, 1609, 1627, 1667, 1693, 1699, 1847, 1867, 2141, 2161, 2417, 2459, 2467, 2477, 2617, 2647, 2659, 2677, 3041
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 4] || MemberQ[id, 6]) && PrimeQ[ FromDigits[ id /. {4 -> 6, 6 -> 4}] ]]; Select[ Prime@ Range@ 440, fQ]
dpQ[n_]:=(DigitCount[n,10,4]>0 || DigitCount[n,10,6]>0)&&PrimeQ[ FromDigits[ IntegerDigits[n]/.{4->a,6->b}/.{a->6,b->4}]]; Select[ Prime[ Range[500]],dpQ](* Harvey P. Dale, Feb 28 2022 *)

A180548 Primes that become a different prime under the mapping 4 <=> 7.

Original entry on oeis.org

41, 43, 71, 73, 149, 179, 241, 271, 349, 379, 401, 409, 419, 433, 439, 443, 461, 541, 571, 643, 673, 701, 709, 719, 733, 739, 761, 773, 941, 971, 1249, 1279, 1409, 1423, 1433, 1453, 1459, 1471, 1483, 1489, 1549, 1579, 1709, 1723, 1733, 1741, 1753, 1759
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

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

A180549 Primes that become a different prime under the mapping 4 <=> 8.

Original entry on oeis.org

43, 83, 241, 281, 349, 389, 409, 421, 439, 443, 457, 463, 547, 587, 643, 683, 809, 821, 839, 857, 863, 883, 1249, 1289, 1423, 1471, 1487, 1543, 1583, 1747, 1787, 1823, 1847, 1871, 2341, 2381, 2437, 2447, 2647, 2687, 2749, 2789, 2837, 2887, 3049, 3089, 3433
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

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

A180550 Primes that become a different prime under the mapping 4 <=> 9.

Original entry on oeis.org

47, 97, 347, 397, 467, 491, 641, 691, 941, 967, 1433, 1447, 1451, 1487, 1933, 1951, 1987, 1997, 2243, 2293, 2417, 2543, 2593, 2741, 2791, 2917, 3407, 3467, 3907, 3967, 4001, 4007, 4013, 4091, 4093, 4127, 4133, 4157, 4243, 4283, 4337, 4391, 4423, 4597
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

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

A180551 Primes that become a different prime under the mapping 5 <=> 6.

Original entry on oeis.org

157, 167, 457, 467, 541, 547, 563, 569, 577, 641, 647, 653, 659, 677, 751, 761, 853, 863, 1051, 1061, 1153, 1163, 1553, 1559, 1567, 1597, 1657, 1663, 1669, 1697, 2053, 2063, 2521, 2593, 2621, 2693, 2851, 2861, 2953, 2963, 3457, 3467, 3517, 3571, 3617
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

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

A180552 Primes that become a different prime under the mapping 5 <=> 7.

Original entry on oeis.org

5, 7, 53, 59, 73, 79, 251, 271, 353, 359, 373, 379, 509, 569, 571, 653, 673, 709, 751, 769, 1151, 1171, 1259, 1279, 1451, 1471, 1523, 1579, 1583, 1723, 1759, 1783, 2351, 2371, 2531, 2549, 2591, 2731, 2749, 2791, 3251, 3271, 3533, 3539, 3559, 3593, 3733
Offset: 1

Views

Author

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

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 5] || MemberQ[id, 7]) && PrimeQ[ FromDigits[ id /. {5 -> 7, 7 -> 5}] ]]; Select[ Prime@ Range@ 550, fQ]
Previous Showing 31-40 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.