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.

Showing 1-6 of 6 results.

A319785 a(n) = A073138(n) + A038573(n).

Original entry on oeis.org

0, 2, 3, 6, 5, 9, 9, 14, 9, 15, 15, 21, 15, 21, 21, 30, 17, 27, 27, 35, 27, 35, 35, 45, 27, 35, 35, 45, 35, 45, 45, 62, 33, 51, 51, 63, 51, 63, 63, 75, 51, 63, 63, 75, 63, 75, 75, 93, 51, 63, 63, 75, 63, 75, 75, 93, 63, 75, 75, 93, 75, 93, 93, 126, 65, 99, 99, 119
Offset: 0

Views

Author

Seiichi Manyama, Sep 27 2018

Keywords

Comments

This sequence is different from A055944. For example, A055944(5) = 10 and a(5) = 9.

Links

Crossrefs

Base b: this sequence (b=2), A319803 (b=3), A319804 (b=4), A319805 (b=5), A319806 (b=6), A319807 (b=7), A319808 (b=8), A319747 (b=9), A052008 (b=10).
Cf. A038573, A055944, A073138.

Programs

  • Mathematica
    Table[FromDigits[Reverse[#], 2] + FromDigits[#, 2] & [Sort[IntegerDigits[n, 2]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
  • PARI
    a(n) = my(dn=binary(n)); fromdigits(vecsort(dn), 2) + fromdigits(vecsort(dn,,4), 2); \\ Michel Marcus, Sep 28 2018

A319804 a(n) = A319720(n) + A319652(n).

Original entry on oeis.org

0, 2, 4, 6, 5, 10, 15, 20, 10, 15, 20, 25, 15, 20, 25, 30, 17, 25, 42, 59, 25, 42, 59, 76, 42, 59, 67, 84, 59, 76, 84, 92, 34, 42, 50, 67, 42, 59, 67, 84, 50, 67, 84, 101, 67, 84, 101, 109, 51, 59, 67, 75, 59, 76, 84, 92, 67, 84, 101, 109, 75, 92, 109, 126, 65, 85, 150, 215
Offset: 0

Views

Author

Seiichi Manyama, Sep 28 2018

Keywords

Comments

This sequence is different from A055948.

Links

Crossrefs

Base b: A319785 (b=2), A319803 (b=3), this sequence (b=4), A319805 (b=5), A319806 (b=6), A319807 (b=7), A319808 (b=8), A319747 (b=9), A052008 (b=10).
Cf. A055948, A319652, A319720.

Programs

  • Mathematica
    Table[FromDigits[Reverse[#], 4] + FromDigits[#, 4] & [Sort[IntegerDigits[n, 4]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
  • PARI
    a(n) = my(nd=digits(n, 4)); fromdigits(vecsort(nd), 4) + fromdigits(vecsort(nd,,4), 4); \\ Michel Marcus, Sep 28 2018

A319805 a(n) = A319722(n) + A319653(n).

Original entry on oeis.org

0, 2, 4, 6, 8, 6, 12, 18, 24, 30, 12, 18, 24, 30, 36, 18, 24, 30, 36, 42, 24, 30, 36, 42, 48, 26, 36, 62, 88, 114, 36, 62, 88, 114, 140, 62, 88, 98, 124, 150, 88, 114, 124, 134, 160, 114, 140, 150, 160, 170, 52, 62, 72, 98, 124, 62, 88, 98, 124, 150, 72, 98, 124, 150, 176
Offset: 0

Views

Author

Seiichi Manyama, Sep 28 2018

Keywords

Comments

This sequence is different from A055950.

Links

Crossrefs

Base b: A319785 (b=2), A319803 (b=3), A319804 (b=4), this sequence (b=5), A319806 (b=6), A319807 (b=7), A319808 (b=8), A319747 (b=9), A052008 (b=10).
Cf. A055950, A319653, A319722.

Programs

  • Maple
    a:= n-> (l-> add((l[i]+l[-i])*5^(i-1), i=1..nops(l)))(sort(convert(n, base, 5))):
seq(a(n), n=0..64);  # Alois P. Heinz, Aug 07 2024
  • Mathematica
    Table[FromDigits[Reverse[#], 5] + FromDigits[#, 5] & [Sort[IntegerDigits[n, 5]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
  • PARI
    a(n) = my(nd=digits(n, 5)); fromdigits(vecsort(nd), 5) + fromdigits(vecsort(nd,,4), 5); \\ Michel Marcus, Sep 28 2018

A319806 a(n) = A319723(n) + A319654(n).

Original entry on oeis.org

0, 2, 4, 6, 8, 10, 7, 14, 21, 28, 35, 42, 14, 21, 28, 35, 42, 49, 21, 28, 35, 42, 49, 56, 28, 35, 42, 49, 56, 63, 35, 42, 49, 56, 63, 70, 37, 49, 86, 123, 160, 197, 49, 86, 123, 160, 197, 234, 86, 123, 135, 172, 209, 246, 123, 160, 172, 184, 221, 258, 160, 197, 209, 221, 233
Offset: 0

Views

Author

Seiichi Manyama, Sep 28 2018

Keywords

Comments

This sequence is different from A055952.

Links

Crossrefs

Base b: A319785 (b=2), A319803 (b=3), A319804 (b=4), A319805 (b=5), this sequence (b=6), A319807 (b=7), A319808 (b=8), A319747 (b=9), A052008 (b=10).
Cf. A055952, A319654, A319723.

Programs

  • Mathematica
    Table[FromDigits[Reverse[#], 6] + FromDigits[#, 6] & [Sort[IntegerDigits[n, 6]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
  • PARI
    a(n) = my(nd=digits(n, 6)); fromdigits(vecsort(nd), 6) + fromdigits(vecsort(nd,,4), 6); \\ Michel Marcus, Sep 28 2018

A319807 a(n) = A319724(n) + A319655(n).

Original entry on oeis.org

0, 2, 4, 6, 8, 10, 12, 8, 16, 24, 32, 40, 48, 56, 16, 24, 32, 40, 48, 56, 64, 24, 32, 40, 48, 56, 64, 72, 32, 40, 48, 56, 64, 72, 80, 40, 48, 56, 64, 72, 80, 88, 48, 56, 64, 72, 80, 88, 96, 50, 64, 114, 164, 214, 264, 314, 64, 114, 164, 214, 264, 314, 364, 114, 164, 178, 228
Offset: 0

Views

Author

Seiichi Manyama, Sep 28 2018

Keywords

Comments

This sequence is different from A055954.

Links

Crossrefs

Base b: A319785 (b=2), A319803 (b=3), A319804 (b=4), A319805 (b=5), A319806 (b=6), this sequence (b=7), A319808 (b=8), A319747 (b=9), A052008 (b=10).
Cf. A055954, A319655, A319724.

Programs

  • Mathematica
    Table[FromDigits[Reverse[#], 7] + FromDigits[#, 7] & [Sort[IntegerDigits[n, 7]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
  • PARI
    a(n) = my(nd=digits(n, 7)); fromdigits(vecsort(nd), 7) + fromdigits(vecsort(nd,,4), 7); \\ Michel Marcus, Sep 28 2018

A319808 a(n) = A319725(n) + A319656(n).

Original entry on oeis.org

0, 2, 4, 6, 8, 10, 12, 14, 9, 18, 27, 36, 45, 54, 63, 72, 18, 27, 36, 45, 54, 63, 72, 81, 27, 36, 45, 54, 63, 72, 81, 90, 36, 45, 54, 63, 72, 81, 90, 99, 45, 54, 63, 72, 81, 90, 99, 108, 54, 63, 72, 81, 90, 99, 108, 117, 63, 72, 81, 90, 99, 108, 117, 126, 65, 81, 146, 211
Offset: 0

Views

Author

Seiichi Manyama, Sep 28 2018

Keywords

Comments

This sequence is different from A055956.

Links

Crossrefs

Base b: A319785 (b=2), A319803 (b=3), A319804 (b=4), A319805 (b=5), A319806 (b=6), A319807 (b=7), this sequence (b=8), A319747 (b=9), A052008 (b=10).
Cf. A055956, A319656, A319725.

Programs

  • Mathematica
    Table[FromDigits[Reverse[#], 8] + FromDigits[#, 8] & [Sort[IntegerDigits[n, 8]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
  • PARI
    a(n) = my(nd=digits(n, 8)); fromdigits(vecsort(nd), 8) + fromdigits(vecsort(nd,,4), 8); \\ Michel Marcus, Sep 28 2018
Showing 1-6 of 6 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.