A279081 Number of divisors of the n-th tetrahedral number.
1, 3, 4, 6, 4, 8, 12, 16, 8, 12, 8, 12, 8, 20, 16, 20, 8, 24, 16, 24, 8, 16, 18, 24, 18, 36, 24, 24, 8, 24, 20, 24, 16, 48, 32, 24, 8, 32, 24, 32, 8, 24, 32, 48, 16, 20, 24, 45, 18, 36, 16, 36, 24, 96, 48, 32, 8, 24, 16, 24, 16, 56, 96, 56, 16, 24, 16, 48, 16
Offset: 1
Keywords
Examples
a(48) = tau(48*59*50/6) = tau(19600) = tau(2^4 * 5^2 * 7^2) = (4+1)*(2+1)*(2+1) = 5*3*3 = 45.
Links
- Michel Marcus, Table of n, a(n) for n = 1..10000
Programs
-
Maple
with(numtheory): seq(tau(n*(n+1)*(n+2)/6), n=1..70) ; # Ridouane Oudra, Jan 25 2024
-
Mathematica
DivisorSigma[0, Binomial[Range[100]+2, 3]] (* Paolo Xausa, Feb 19 2024 *)
-
PARI
a(n) = numdiv(n*(n+1)*(n+2)/6); \\ Michel Marcus, Jan 07 2017
Formula
From Ridouane Oudra, Jan 25 2024: (Start)
a(6*n) = tau(2*n)*tau(6*n+1)*tau(6*n+2)/2;
a(6*n+1) = tau(6*n+1)*tau(3*n+1)*tau(2*n+1);
a(6*n+2) = tau(6*n+2)*tau(2*n+1)*tau(6*n+4)/2;
a(6*n+3) = tau(2*n+1)*tau(3*n+2)*tau(6*n+5);
a(6*n+4) = tau(6*n+4)*tau(6*n+5)*tau(2*n+2)/2;
a(6*n+5) = tau(6*n+5)*tau(n+1)*tau(6*n+7). (End)
Comments