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-5 of 5 results.

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

Keywords

Crossrefs

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

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

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

Crossrefs

Programs

Formula

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

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

A126098 Where records occur in A018892.

Original entry on oeis.org

1, 2, 4, 6, 12, 24, 30, 60, 120, 180, 210, 360, 420, 840, 1260, 1680, 2520, 4620, 7560, 9240, 13860, 18480, 27720, 55440, 83160, 110880, 120120, 180180, 240240, 360360, 720720, 1081080, 1441440, 1801800, 2042040, 2882880, 3063060, 4084080, 5405400, 6126120, 12252240, 18378360, 24504480
Offset: 1

Views

Author

N. J. A. Sloane, Mar 05 2007

Keywords

Comments

Remarkably similar to but ultimately different from A018894. - Jorg Brown and N. J. A. Sloane, Mar 06 2007
This sequence represents "where records occur" for a number of sequences in addition to A018892 including the following: A015995, A015996, A015999, A016001, A016002, A016003, A016005, A016006, A016007, A016008, A016009, A048691, A048785, A063647, A117677, A144943. - Ray Chandler, Dec 04 2008
Subsequence of A025487. - Ray Chandler, Sep 05 2008
Also record-setting elements of tau(n^2) (just as A002182 gives the record-setting elements of tau(n)). The point is that A018892 is (tau(n^2) + 1)/2. As tau(n^2) is odd, the record-setting elements of A018892 are also the record setting elements of tau(n^2). - Allen Tracht, Jan 20 2009

Crossrefs

Cf. A018892, A126097. Equals A117010(n) + 1.

Extensions

More terms from Jorg Brown (jorg(AT)google.com) and T. D. Noe, Mar 05 2007
a(27) corrected by hupo001(AT)gmail.com, Jan 10 2008

A343655 Number of pairwise coprime sets of divisors of n, where a singleton is not considered pairwise coprime unless it is {1}.

Original entry on oeis.org

1, 2, 2, 3, 2, 6, 2, 4, 3, 6, 2, 10, 2, 6, 6, 5, 2, 10, 2, 10, 6, 6, 2, 14, 3, 6, 4, 10, 2, 22, 2, 6, 6, 6, 6, 17, 2, 6, 6, 14, 2, 22, 2, 10, 10, 6, 2, 18, 3, 10, 6, 10, 2, 14, 6, 14, 6, 6, 2, 38, 2, 6, 10, 7, 6, 22, 2, 10, 6, 22, 2, 24, 2, 6, 10, 10, 6, 22, 2
Offset: 1

Views

Author

Gus Wiseman, Apr 26 2021

Keywords

Comments

First differs from A015995 at a(210) = 88, A015995(210) = 86.

Examples

			For example, the a(n) subsets for n = 1, 2, 4, 6, 8, 12, 16, 24 are:
  {1}  {1}    {1}    {1}      {1}    {1}      {1}     {1}
       {1,2}  {1,2}  {1,2}    {1,2}  {1,2}    {1,2}   {1,2}
              {1,4}  {1,3}    {1,4}  {1,3}    {1,4}   {1,3}
                     {1,6}    {1,8}  {1,4}    {1,8}   {1,4}
                     {2,3}           {1,6}    {1,16}  {1,6}
                     {1,2,3}         {2,3}            {1,8}
                                     {3,4}            {2,3}
                                     {1,12}           {3,4}
                                     {1,2,3}          {3,8}
                                     {1,3,4}          {1,12}
                                                      {1,24}
                                                      {1,2,3}
                                                      {1,3,4}
                                                      {1,3,8}
		

Crossrefs

The case of pairs is A063647.
The case of triples is A066620.
The version with empty sets and singletons is A225520.
A version for prime indices is A304711.
The version for strict integer partitions is A305713.
The version for subsets of {1..n} is A320426 = A276187 + 1.
The version for binary indices is A326675.
The version for integer partitions is A327516.
The version for standard compositions is A333227.
The maximal case is A343652.
The case without 1's is A343653.
The case without 1's with singletons is A343654.
The maximal case without 1's is A343660.
A018892 counts coprime unordered pairs of divisors.
A051026 counts pairwise indivisible subsets of {1..n}.
A100565 counts pairwise coprime unordered triples of divisors.
A325683 counts maximal Golomb rulers.
A326077 counts maximal pairwise indivisible sets.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Divisors[n]],CoprimeQ@@#&]],{n,100}]

A016018 Least k such that (tau(k^3)+2)/3=n.

Original entry on oeis.org

1, 2, 4, 8, 16, 6, 64, 128, 256, 12, 1024, 2048, 4096, 24, 16384, 32768, 36, 48, 262144, 524288, 1048576, 30, 4194304, 72, 16777216, 192, 67108864, 134217728, 268435456, 384, 144, 2147483648, 4294967296, 216, 17179869184, 34359738368, 68719476736
Offset: 0

Views

Author

Keywords

Crossrefs

Extensions

More terms from Robert G. Wilson v, Aug 06 2005
Definition corrected by Vladeta Jovovic, Sep 03 2005
Extended by Ray Chandler, Sep 05 2008
Showing 1-5 of 5 results.