A171034 -id:A171034 - cp's OEIS frontend

A180522 Primes that become a different prime under the mapping 0 <=> 7.

73, 103, 109, 173, 179, 409, 479, 701, 709, 719, 743, 761, 773, 1021, 1033, 1303, 1373, 1721, 1733, 1801, 1871, 2011, 2029, 2053, 2089, 2203, 2273, 2711, 2729, 2753, 2789, 3019, 3061, 3079, 3301, 3371, 3709, 3719, 3761, 4021, 4051, 4073, 4093, 4099, 4201

Offset: 1

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

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

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

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

A222216 In the number n, replace all (decimal) digits 0 with 7 and vice versa.

Original entry on oeis.org

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

Offset: 0

M. F. Hasler, Feb 12 2013

The map which is applied to primes in A171034.

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

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

A222216 := proc(n)
    if n = 0 then
        7;
    else
        dgs := convert(n,base,10) ;
        dgs := [seq( subs({0=7,7=0},op(d,dgs)),d=1..nops(dgs))] ;
        add(op(d,dgs)*10^(d-1),d=1..nops(dgs)) ;
    end if;
end proc: # R. J. Mathar, Feb 15 2013

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

A222216(n,d=[7,1,2,3,4,5,6,0,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)

cp's OEIS Frontend

A180522 Primes that become a different prime under the mapping 0 <=> 7.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica