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

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)

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

Original entry on oeis.org

0, 1, 2, 9, 4, 5, 6, 7, 8, 3, 10, 11, 12, 19, 14, 15, 16, 17, 18, 13, 20, 21, 22, 29, 24, 25, 26, 27, 28, 23, 90, 91, 92, 99, 94, 95, 96, 97, 98, 93, 40, 41, 42, 49, 44, 45, 46, 47, 48, 43, 50, 51, 52, 59, 54, 55, 56, 57, 58, 53, 60, 61, 62, 69, 64, 65, 66, 67, 68, 63, 70, 71, 72, 79, 74, 75
Offset: 0

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171052.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171027.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171032.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171038.

Links

Crossrefs

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

Programs

  • Mathematica
    Table[FromDigits[IntegerDigits[n]/.{4->a,7->b}/.{a->7,b->4}],{n,0,80}] (* Harvey P. Dale, Jul 22 2013 *)
  • PARI
    A222242(n,d=[0, 1, 2, 3, 7, 5, 6, 4, 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)

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

Original entry on oeis.org

0, 1, 2, 3, 8, 5, 6, 7, 4, 9, 10, 11, 12, 13, 18, 15, 16, 17, 14, 19, 20, 21, 22, 23, 28, 25, 26, 27, 24, 29, 30, 31, 32, 33, 38, 35, 36, 37, 34, 39, 80, 81, 82, 83, 88, 85, 86, 87, 84, 89, 50, 51, 52, 53, 58, 55, 56, 57, 54, 59, 60, 61, 62, 63, 68, 65, 66, 67, 64, 69, 70, 71, 72, 73, 78, 75
Offset: 0

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171045.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

0, 1, 2, 3, 9, 5, 6, 7, 8, 4, 10, 11, 12, 13, 19, 15, 16, 17, 18, 14, 20, 21, 22, 23, 29, 25, 26, 27, 28, 24, 30, 31, 32, 33, 39, 35, 36, 37, 38, 34, 90, 91, 92, 93, 99, 95, 96, 97, 98, 94, 50, 51, 52, 53, 59, 55, 56, 57, 58, 54, 60, 61, 62, 63, 69, 65, 66, 67, 68, 64, 70, 71, 72, 73, 79, 75
Offset: 0

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171053.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171033.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171039.

Links

Crossrefs

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

Programs

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