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-47 of 47 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)

A180581 Least prime p which maps into n different primes under some mapping of a single decimal digit <=> with another single decimal digit.

Original entry on oeis.org

11, 1187, 449, 2, 61, 29, 19, 23, 17, 13, 109, 1021, 107, 10427, 78041, 10457, 190583, 1309757, 2531689, 152944307
Offset: 0

Views

Author

Robert G. Wilson v, Sep 10 2010

Keywords

Comments

a(n) > 10^9 for n >= 20. [From Donovan Johnson, Oct 05 2010]

Links

  • Index to Primes, Primes that become a different prime under some mapping.

Crossrefs

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

Programs

  • Mathematica
    fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, s[[1]]] || MemberQ[id, s[[2]]]) && PrimeQ[FromDigits[id /. {s[[1]] -> s[[2]], s[[2]] -> s[[1]]}]]]; f[n_] := Count[ Flatten[ Table[s = {j, k}; fQ@n, {j, 0, 8}, {k, j + 1, 9}]], True]; t = Table[0, {46}]; p = 2; While[p < 13500000, a = f@p; If[ t[[a + 1]] == 0, t[[a + 1]] = p; Print[{a, p}]]; p = NextPrime@p]; t

Extensions

a(19) from Donovan Johnson, Oct 05 2010
Previous Showing 41-47 of 47 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.