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

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171034.

Links

Crossrefs

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

Programs

  • Maple
    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
  • Mathematica
    a[n_]:= IntegerDigits[n]/.{0->7, 7->0} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 29 2013 *)
  • PARI
    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)

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171041.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171049.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A175770.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171020.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171024.

Links

Crossrefs

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

Programs

  • Haskell
    a222222 = foldl f 0 . map (read . return) . show :: Integer -> Integer
          where f v d = 10 * v + if d == 1 || d == 5 then 6 - d else d
-- Reinhard Zumkeller, Jan 29 2014
  • Maple
    a:= proc(n) local m, d; d:=irem(n, 10, 'm');
     `if`(n=0, 0, parse(cat(a(m),`if`(d in [1, 5], 6-d, d))))
    end:
seq(a(n), n=0..99);  # Alois P. Heinz, Mar 02 2013
  • Mathematica
    a[n_]:= IntegerDigits[n]/.{1->5, 5->1} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
  • PARI
    A222222(n,d=[0,5,2,3,4,1,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)

Formula

Recurrence: a(10*n+i) = 10*a(n)+g(i) for 0 <= i <= 9, where
g(x) = -13/10080*x^9 +43/840*x^8 -611/720*x^7 +457/60*x^6 -57739/1440*x^5 +5007/40*x^4 -62231/280*x^3 +13941/70*x^2 -319/5*x. - Robert Israel, May 13 2014

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171029.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

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

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171035.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

0, 8, 2, 3, 4, 5, 6, 7, 1, 9, 80, 88, 82, 83, 84, 85, 86, 87, 81, 89, 20, 28, 22, 23, 24, 25, 26, 27, 21, 29, 30, 38, 32, 33, 34, 35, 36, 37, 31, 39, 40, 48, 42, 43, 44, 45, 46, 47, 41, 49, 50, 58, 52, 53, 54, 55, 56, 57, 51, 59, 60, 68, 62, 63, 64, 65, 66, 67, 61, 69, 70, 78, 72, 73, 74, 75
Offset: 0

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171042.

Links

Crossrefs

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

Programs

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

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

Original entry on oeis.org

0, 9, 2, 3, 4, 5, 6, 7, 8, 1, 90, 99, 92, 93, 94, 95, 96, 97, 98, 91, 20, 29, 22, 23, 24, 25, 26, 27, 28, 21, 30, 39, 32, 33, 34, 35, 36, 37, 38, 31, 40, 49, 42, 43, 44, 45, 46, 47, 48, 41, 50, 59, 52, 53, 54, 55, 56, 57, 58, 51, 60, 69, 62, 63, 64, 65, 66
Offset: 0

Views

Author

M. F. Hasler, Feb 12 2013

Keywords

Comments

The map which is applied to primes in A171050.

Links

Crossrefs

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

Programs

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