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 41-46 of 46 results.

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

Original entry on oeis.org

0, 1, 2, 3, 4, 8, 6, 7, 5, 9, 10, 11, 12, 13, 14, 18, 16, 17, 15, 19, 20, 21, 22, 23, 24, 28, 26, 27, 25, 29, 30, 31, 32, 33, 34, 38, 36, 37, 35, 39, 40, 41, 42, 43, 44, 48, 46, 47, 45, 49, 80, 81, 82, 83, 84, 88, 86, 87, 85, 89, 60, 61, 62, 63, 64, 68, 66, 67, 65, 69, 70, 71, 72, 73, 74, 78
Offset: 0

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171046.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

0, 1, 2, 3, 4, 9, 6, 7, 8, 5, 10, 11, 12, 13, 14, 19, 16, 17, 18, 15, 20, 21, 22, 23, 24, 29, 26, 27, 28, 25, 30, 31, 32, 33, 34, 39, 36, 37, 38, 35, 40, 41, 42, 43, 44, 49, 46, 47, 48, 45, 90, 91, 92, 93, 94, 99, 96, 97, 98, 95, 60, 61, 62, 63, 64, 69, 66, 67, 68, 65, 70, 71, 72, 73, 74, 79
Offset: 0

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171054.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171040.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 8, 7, 6, 9, 10, 11, 12, 13, 14, 15, 18, 17, 16, 19, 20, 21, 22, 23, 24, 25, 28, 27, 26, 29, 30, 31, 32, 33, 34, 35, 38, 37, 36, 39, 40, 41, 42, 43, 44, 45, 48, 47, 46, 49, 50, 51, 52, 53, 54, 55, 58, 57, 56, 59, 80, 81, 82, 83, 84, 85, 88, 87, 86, 89, 70, 71, 72, 73, 74, 75
Offset: 0

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171047.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171048.

Links

Crossrefs

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

Programs

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

Extensions

Corrected term by Vincenzo Librandi, Jul 29 2013

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 13 2013

Keywords

Comments

The map which is applied to primes in A171056.

Links

Crossrefs

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

Programs

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

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.