A171026 -id:A171026 - cp's OEIS frontend

A222235 In the number n, replace all (decimal) digits '3' with '5' and vice versa.

0, 1, 2, 5, 4, 3, 6, 7, 8, 9, 10, 11, 12, 15, 14, 13, 16, 17, 18, 19, 20, 21, 22, 25, 24, 23, 26, 27, 28, 29, 50, 51, 52, 55, 54, 53, 56, 57, 58, 59, 40, 41, 42, 45, 44, 43, 46, 47, 48, 49, 30, 31, 32, 35, 34, 33, 36, 37, 38, 39, 60, 61, 62, 65, 64, 63, 66, 67, 68, 69, 70, 71, 72, 75, 74, 73

Offset: 0

M. F. Hasler, Feb 12 2013

The map which is applied to primes in A171026.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Cf. A222210-A222254; A171013-A171016, A175770, A171018-A171057.

a[n_]:= IntegerDigits[n]/.{3->5, 5->3} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)

A222235(n,d=[0,1,2,5,4,3,6,7,8,9])={sum(i=1,#n=digits(n),d[n[i]+1]*10^(#n-i),!n*d[1])} \\ N.B.: digits(0)=[] in PARI (v.2.6)

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

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. A171026, A175791, A180517 thru A180559, A175789, A180560, A180561.

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

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

cp's OEIS Frontend

A222235 In the number n, replace all (decimal) digits '3' with '5' and vice versa.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI