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 44 results. Next

A222228 In the number n, replace all (decimal) digits '2' with '4' and vice versa.

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171021.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{2->4, 4->2} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222228(n,d=[0,1,4,3,2,5,6,7,8,9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171025.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{2->5, 5->2} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222229(n,d=[0,1,5,3,4,2,6,7,8,9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

A222230 In the number n, replace all (decimal) digits '2' with '6' and vice versa.

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171030.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{2->6, 6->2} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222230(n,d=[0,1,6,3,4,5,2,7,8,9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

A222231 In the number n, replace all (decimal) digits '2' with '7' and vice versa.

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171036.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{2->7, 7->2} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222231(n,d=[0,1,7,3,4,5,6,2,8,9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

A222232 In the number n, replace all (decimal) digits '2' with '8' and vice versa.

Original entry on oeis.org

0, 1, 8, 3, 4, 5, 6, 7, 2, 9, 10, 11, 18, 13, 14, 15, 16, 17, 12, 19, 80, 81, 88, 83, 84, 85, 86, 87, 82, 89, 30, 31, 38, 33, 34, 35, 36, 37, 32, 39, 40, 41, 48, 43, 44, 45, 46, 47, 42, 49, 50, 51, 58, 53, 54, 55, 56, 57, 52, 59, 60, 61, 68, 63, 64, 65, 66, 67, 62, 69
Offset: 0

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171043.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{2->8, 8->2} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222232(n,d=[0,1,8,3,4,5,6,7,2,9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

A222233 In the number n, replace all (decimal) digits '2' with '9' and vice versa.

Original entry on oeis.org

0, 1, 9, 3, 4, 5, 6, 7, 8, 2, 10, 11, 19, 13, 14, 15, 16, 17, 18, 12, 90, 91, 99, 93, 94, 95, 96, 97, 98, 92, 30, 31, 39, 33, 34, 35, 36, 37, 38, 32, 40, 41, 49, 43, 44, 45, 46, 47, 48, 42, 50, 51, 59, 53, 54, 55, 56, 57, 58, 52, 60, 61, 69, 63, 64, 65, 66, 67, 68, 62, 70, 71, 79, 73, 74, 75
Offset: 0

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171051.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{2->9, 9->2} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222233(n,d=[0,1,9,3,4,5,6,7,8,2])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171022.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{3->4, 4->3} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222234(n,d=[0,1,2,4,3,5,6,7,8,9])=sum(i=1,#n=digits(n),d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171031.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{3->6, 6->3} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222235(n,d=[0,1,2,6,4,5,3,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)

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171037.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{3->7, 7->3} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222237(n,d=[0, 1, 2, 7, 4, 5, 6, 3, 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)

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

Original entry on oeis.org

0, 1, 2, 8, 4, 5, 6, 7, 3, 9, 10, 11, 12, 18, 14, 15, 16, 17, 13, 19, 20, 21, 22, 28, 24, 25, 26, 27, 23, 29, 80, 81, 82, 88, 84, 85, 86, 87, 83, 89, 40, 41, 42, 48, 44, 45, 46, 47, 43, 49, 50, 51, 52, 58, 54, 55, 56, 57, 53, 59, 60, 61, 62, 68, 64, 65, 66, 67, 63, 69, 70, 71, 72, 78, 74, 75
Offset: 0

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171044.

Links

Crossrefs

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

Programs

  • Mathematica
    a[n_]:= IntegerDigits[n]/.{3->8, 8->3} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222238(n,d=[0, 1, 2, 8, 4, 5, 6, 7, 3, 9])={sum(i=1,#n=digits(n),d[n[i]+1]*10^(#n-i),!n*d[1])} \\ N.B.: digits(0)=[] in PA RI (v.2.6)
Previous Showing 21-30 of 44 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.