A180559 -id:A180559 - cp's OEIS frontend

A180555 Primes that become a different prime under the mapping 6 <=> 7.

61, 71, 163, 173, 601, 619, 643, 701, 719, 743, 1609, 1621, 1709, 1721, 1861, 1871, 2689, 2789, 3361, 3371, 3671, 3761, 4261, 4271, 4363, 4373, 4603, 4621, 4651, 4703, 4721, 4751, 4861, 4871, 5563, 5573, 5641, 5669, 5683, 5741, 5779, 5783, 5869, 5879

Offset: 1

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

Robert Israel, Table of n, a(n) for n = 1..10000
Index to Primes, Primes that become a different prime under some mapping.

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

g:= proc(n) local L,i;
  L:= subs({6=7,7=6},convert(n,base,10));
  add(L[i]*10^(i-1),i=1..nops(L))
end proc:
filter:= proc(x) local y;
  if not isprime(x) then return false fi;
  y:= g(x);
  y <> x and isprime(y)
end proc:
select(filter, [seq(i,i=3..10000,2)]); # Robert Israel, Nov 12 2019

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

A180556 Primes that become a different prime under the mapping 6 <=> 8.

Original entry on oeis.org

263, 283, 467, 487, 653, 659, 661, 677, 683, 853, 859, 863, 877, 881, 1361, 1381, 1601, 1669, 1801, 1889, 2063, 2069, 2083, 2089, 2267, 2287, 2633, 2657, 2833, 2857, 3167, 3187, 3623, 3677, 3823, 3877, 4463, 4483, 4967, 4987, 5261, 5281, 5639, 5651, 5657

Offset: 1

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

Robert Price, Table of n, a(n) for n = 1..2091
Index to Primes, Primes that become a different prime under some mapping.

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

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

A180557 Primes that become a different prime under the mapping 6 <=> 9.

Original entry on oeis.org

67, 97, 163, 167, 193, 197, 263, 293, 367, 397, 461, 491, 563, 593, 607, 641, 647, 653, 661, 677, 683, 907, 941, 947, 953, 977, 983, 991, 1061, 1063, 1091, 1093, 1163, 1193, 1567, 1597, 1601, 1607, 1613, 1663, 1667, 1901, 1907, 1913, 1993, 1997, 2267, 2297

Offset: 1

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

Robert Price, Table of n, a(n) for n = 1..2828
Index to Primes, Primes that become a different prime under some mapping.

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

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

A180558 Primes that become a different prime under the mapping 7 <=> 8.

Original entry on oeis.org

73, 79, 83, 89, 271, 281, 373, 379, 383, 389, 673, 683, 709, 739, 773, 809, 839, 883, 1171, 1181, 1279, 1289, 1471, 1481, 1723, 1783, 1789, 1823, 1873, 1879, 2371, 2381, 2719, 2789, 2819, 2879, 3079, 3089, 3571, 3581, 3733, 3779, 3833, 3889, 4273, 4283

Offset: 1

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

Robert Price, Table of n, a(n) for n = 1..1582
Index to Primes, Primes that become a different prime under some mapping.

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

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

A180581 Least prime p which maps into n different primes under some mapping of a single decimal digit <=> with another single decimal digit.

Original entry on oeis.org

11, 1187, 449, 2, 61, 29, 19, 23, 17, 13, 109, 1021, 107, 10427, 78041, 10457, 190583, 1309757, 2531689, 152944307

Offset: 0

Robert G. Wilson v, Sep 10 2010

a(n) > 10^9 for n >= 20. [From Donovan Johnson, Oct 05 2010]

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

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

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]]}]]]; f[n_] := Count[ Flatten[ Table[s = {j, k}; fQ@n, {j, 0, 8}, {k, j + 1, 9}]], True]; t = Table[0, {46}]; p = 2; While[p < 13500000, a = f@p; If[ t[[a + 1]] == 0, t[[a + 1]] = p; Print[{a, p}]]; p = NextPrime@p]; t

a(19) from Donovan Johnson, Oct 05 2010

cp's OEIS Frontend

A180555 Primes that become a different prime under the mapping 6 <=> 7.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A180556 Primes that become a different prime under the mapping 6 <=> 8.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A180557 Primes that become a different prime under the mapping 6 <=> 9.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A180558 Primes that become a different prime under the mapping 7 <=> 8.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A180581 Least prime p which maps into n different primes under some mapping of a single decimal digit <=> with another single decimal digit.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions