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-10 of 12 results. Next

A015999 a(n) = (tau(n^5) + 4)/5.

Original entry on oeis.org

1, 2, 2, 3, 2, 8, 2, 4, 3, 8, 2, 14, 2, 8, 8, 5, 2, 14, 2, 14, 8, 8, 2, 20, 3, 8, 4, 14, 2, 44, 2, 6, 8, 8, 8, 25, 2, 8, 8, 20, 2, 44, 2, 14, 14, 8, 2, 26, 3, 14, 8, 14, 2, 20, 8, 20, 8, 8, 2, 80, 2, 8, 14, 7, 8, 44, 2, 14, 8, 44, 2, 36, 2, 8, 14, 14, 8, 44, 2, 26, 5, 8, 2, 80, 8, 8
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A018892, A015995, A015996, A016001, A016002, A016003, A016005, A016006, A016007, A016008, A016012.

Programs

  • Maple
    with(numtheory): A015999:=n->(tau(n^5)+4)/5: seq(A015999(n), n=1..80); # Wesley Ivan Hurt, Apr 10 2015
  • Mathematica
    (DivisorSigma[0, Range[80]^5]+4)/5 (* Wesley Ivan Hurt, Apr 10 2015 *)
  • PARI
    A015999(n) = (numdiv(n^5)+4)/5;
for(n=1, 10000, write("b015999.txt", n, " ", A015999(n)));
\\ Antti Karttunen, Jan 17 2017
  • Python
    from sympy import divisor_count
def a(n): return (divisor_count(n**5) + 4)//5
print([a(n) for n in range(1, 101)]) # Indranil Ghosh, Apr 14 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A016005 a(n) = (tau(n^9)+8)/9.

Original entry on oeis.org

1, 2, 2, 3, 2, 12, 2, 4, 3, 12, 2, 22, 2, 12, 12, 5, 2, 22, 2, 22, 12, 12, 2, 32, 3, 12, 4, 22, 2, 112, 2, 6, 12, 12, 12, 41, 2, 12, 12, 32, 2, 112, 2, 22, 22, 12, 2, 42, 3, 22, 12, 22, 2, 32, 12, 32, 12, 12, 2, 212, 2, 12, 22, 7, 12, 112, 2, 22, 12, 112, 2, 60, 2, 12
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016002, A016003, A016006, A016007, A016008, A016009, A016012.

Programs

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A015996 (tau(n^4) + 3)/4, where tau = A000005.

Original entry on oeis.org

1, 2, 2, 3, 2, 7, 2, 4, 3, 7, 2, 12, 2, 7, 7, 5, 2, 12, 2, 12, 7, 7, 2, 17, 3, 7, 4, 12, 2, 32, 2, 6, 7, 7, 7, 21, 2, 7, 7, 17, 2, 32, 2, 12, 12, 7, 2, 22, 3, 12, 7, 12, 2, 17, 7, 17, 7, 7, 2, 57, 2, 7, 12, 7, 7, 32, 2, 12, 7, 32, 2, 30, 2, 7, 12, 12, 7, 32, 2, 22, 5, 7, 2, 57, 7, 7
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Comments

If n is prime, a(n) = 2 since a(p) = (tau(p^4)+3)/4 = (5+3)/4 = 2. - Wesley Ivan Hurt, Nov 16 2013

Links

Crossrefs

Cf. A000005, A018892, A015995, A015999, A016001, A016002, A016003, A016005, A016006, A016007, A016008, A016009, A016012, A016020.

Programs

Formula

a(n) = (A000005(n^4) + 3)/4.

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A016001 a(n) = (tau(n^6)+5)/6.

Original entry on oeis.org

1, 2, 2, 3, 2, 9, 2, 4, 3, 9, 2, 16, 2, 9, 9, 5, 2, 16, 2, 16, 9, 9, 2, 23, 3, 9, 4, 16, 2, 58, 2, 6, 9, 9, 9, 29, 2, 9, 9, 23, 2, 58, 2, 16, 16, 9, 2, 30, 3, 16, 9, 16, 2, 23, 9, 23, 9, 9, 2, 107, 2, 9, 16, 7, 9, 58, 2, 16, 9, 58, 2, 42, 2, 9, 16, 16, 9, 58, 2, 30, 5, 9, 2, 107, 9
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A015996, A015999, A016002, A016003, A016005, A016006, A016007, A016008, A016009, A016012.

Programs

  • Mathematica
    a[n_] := (DivisorSigma[0, n^6] + 5)/6; Array[a, 100] (* Amiram Eldar, Jan 27 2025 *)
  • PARI
    A016001(n) = (numdiv(n^6)+5)/6;
for(n=1, 10000, write("b016001.txt", n, " ", A016001(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A016002 a(n) = (tau(n^7)+6)/7.

Original entry on oeis.org

1, 2, 2, 3, 2, 10, 2, 4, 3, 10, 2, 18, 2, 10, 10, 5, 2, 18, 2, 18, 10, 10, 2, 26, 3, 10, 4, 18, 2, 74, 2, 6, 10, 10, 10, 33, 2, 10, 10, 26, 2, 74, 2, 18, 18, 10, 2, 34, 3, 18, 10, 18, 2, 26, 10, 26, 10, 10, 2, 138, 2, 10, 18, 7, 10, 74, 2, 18, 10, 74, 2, 48, 2, 10, 18, 18
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016003, A016005-A016009, A016012.

Programs

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A016003 a(n) = (tau(n^8)+7)/8.

Original entry on oeis.org

1, 2, 2, 3, 2, 11, 2, 4, 3, 11, 2, 20, 2, 11, 11, 5, 2, 20, 2, 20, 11, 11, 2, 29, 3, 11, 4, 20, 2, 92, 2, 6, 11, 11, 11, 37, 2, 11, 11, 29, 2, 92, 2, 20, 20, 11, 2, 38, 3, 20, 11, 20, 2, 29, 11, 29, 11, 11, 2, 173, 2, 11, 20, 7, 11, 92, 2, 20, 11, 92, 2, 54, 2, 11, 20, 20
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016002, A016005-A016009, A016012.

Programs

  • Mathematica
    Table[(DivisorSigma[0,n^8]+7)/8,{n,80}] (* Harvey P. Dale, Sep 22 2020 *)
  • PARI
    A016003(n) = (numdiv(n^8)+7)/8;
for(n=1, 10000, write("b016003.txt", n, " ", A016003(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A016009 a(n) = (tau(n^13)+12)/13.

Original entry on oeis.org

1, 2, 2, 3, 2, 16, 2, 4, 3, 16, 2, 30, 2, 16, 16, 5, 2, 30, 2, 30, 16, 16, 2, 44, 3, 16, 4, 30, 2, 212, 2, 6, 16, 16, 16, 57, 2, 16, 16, 44, 2, 212, 2, 30, 30, 16, 2, 58, 3, 30, 16, 30, 2, 44, 16, 44, 16, 16, 2, 408, 2, 16, 30, 7, 16, 212, 2, 30, 16, 212, 2, 84, 2, 16
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016002, A016003, A016005, A016006, A016007, A016008, A016012.

Programs

  • Mathematica
    a[n_] := (DivisorSigma[0, n^13] + 12)/13; Array[a, 100] (* Amiram Eldar, Jan 27 2025 *)
  • PARI
    A016009(n) = (numdiv(n^13)+12)/13;
for(n=1, 10000, write("b016009.txt", n, " ", A016009(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A016006 a(n) = (tau(n^10)+9)/10.

Original entry on oeis.org

1, 2, 2, 3, 2, 13, 2, 4, 3, 13, 2, 24, 2, 13, 13, 5, 2, 24, 2, 24, 13, 13, 2, 35, 3, 13, 4, 24, 2, 134, 2, 6, 13, 13, 13, 45, 2, 13, 13, 35, 2, 134, 2, 24, 24, 13, 2, 46, 3, 24, 13, 24, 2, 35, 13, 35, 13, 13, 2, 255, 2, 13, 24, 7, 13, 134, 2, 24, 13, 134, 2, 66, 2, 13
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016002, A016003, A016005, A016007, A016008, A016009, A016012.

Programs

  • Mathematica
    a[n_] := (DivisorSigma[0, n^10] + 9)/10; Array[a, 100] (* Amiram Eldar, Jan 27 2025 *)
  • PARI
    A016006(n) = (numdiv(n^10)+9)/10;
for(n=1, 10000, write("b016006.txt", n, " ", A016006(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A016007 a(n) = (tau(n^11)+10)/11.

Original entry on oeis.org

1, 2, 2, 3, 2, 14, 2, 4, 3, 14, 2, 26, 2, 14, 14, 5, 2, 26, 2, 26, 14, 14, 2, 38, 3, 14, 4, 26, 2, 158, 2, 6, 14, 14, 14, 49, 2, 14, 14, 38, 2, 158, 2, 26, 26, 14, 2, 50, 3, 26, 14, 26, 2, 38, 14, 38, 14, 14, 2, 302, 2, 14, 26, 7, 14, 158, 2, 26, 14, 158, 2, 72, 2, 14
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016002, A016003, A016005, A016006, A016008, A016009, A016012.

Programs

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A016008 a(n) = (tau(n^12)+11)/12.

Original entry on oeis.org

1, 2, 2, 3, 2, 15, 2, 4, 3, 15, 2, 28, 2, 15, 15, 5, 2, 28, 2, 28, 15, 15, 2, 41, 3, 15, 4, 28, 2, 184, 2, 6, 15, 15, 15, 53, 2, 15, 15, 41, 2, 184, 2, 28, 28, 15, 2, 54, 3, 28, 15, 28, 2, 41, 15, 41, 15, 15, 2, 353, 2, 15, 28, 7, 15, 184, 2, 28, 15, 184, 2, 78, 2, 15
Offset: 1

Views

Author

Robert G. Wilson v

Keywords

Links

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016002, A016003, A016005, A016006, A016007, A016009, A016012.

Programs

  • Mathematica
    a[n_] := (DivisorSigma[0, n^12] + 11)/12; Array[a, 100] (* Amiram Eldar, Jan 27 2025 *)
  • PARI
    A016008(n) = (numdiv(n^12)+11)/12;
for(n=1, 10000, write("b016008.txt", n, " ", A016008(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005
Showing 1-10 of 12 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.