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

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,2

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

Antti Karttunen, Table of n, a(n) for n = 1..10000

Formula

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

Maple

A015996 := proc(n)
        (numtheory[tau](n^4)+3)/4 ;
end proc; # R. J. Mathar, May 09 2013

Mathematica

Table[(DivisorSigma[0, n^4] + 3)/4, {n, 100}] (* Wesley Ivan Hurt, Nov 16 2013 *)

Prog

(PARI)
A015996(n) = (numdiv(n^4)+3)/4;
for(n=1, 10000, write("b015996.txt", n, " ", A015996(n)));
\\ Antti Karttunen, Jan 17 2017

Crossrefs

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

Sequence in context: A094438 A156098 A294933 * A256564 A092976 A084705

Adjacent sequences: A015993 A015994 A015995 * A015997 A015998 A015999

Keyword

nonn

Author

Robert G. Wilson v

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

Status

approved