A092517
Product of tau values for consecutive integers.
Original entry on oeis.org
2, 4, 6, 6, 8, 8, 8, 12, 12, 8, 12, 12, 8, 16, 20, 10, 12, 12, 12, 24, 16, 8, 16, 24, 12, 16, 24, 12, 16, 16, 12, 24, 16, 16, 36, 18, 8, 16, 32, 16, 16, 16, 12, 36, 24, 8, 20, 30, 18, 24, 24, 12, 16, 32, 32, 32, 16, 8, 24, 24, 8, 24, 42, 28, 32, 16, 12, 24, 32, 16, 24, 24, 8, 24, 36
Offset: 1
-
[ NumberOfDivisors(n^2+n) : n in [1..100]]; // Vincenzo Librandi, Apr 03 2011
-
with(numtheory): seq(tau(n)*tau(n+1),n=1..73); # Zerinvary Lajos, Jan 22 2007
-
Table[DivisorSigma[0,n^2+n],{n,100}] (* Giorgos Kalogeropoulos, Apr 28 2021 *)
Times@@#&/@Partition[DivisorSigma[0,Range[80]],2,1] (* Harvey P. Dale, Apr 21 2022 *)
-
a(n) = numdiv(n^2+n); \\ Michel Marcus, Jan 11 2020
-
from sympy import divisor_count
def A092517(n): return divisor_count(n)*divisor_count(n+1) # Chai Wah Wu, Jan 06 2022
A081978
Smallest triangular number with exactly n divisors, or 0 if no such number exists.
Original entry on oeis.org
1, 3, 0, 6, 0, 28, 0, 66, 36, 496, 0, 276, 0, 8128, 1631432881, 120, 0, 300, 0, 528, 0, 38009927549623740385753, 0, 630, 0, 33550336, 2172602007770041, 8256, 0, 209628, 0, 3570, 0, 8589869056, 0, 2016, 0, 137438691328, 0, 3240, 0, 662976, 0, 2096128, 41616
Offset: 1
a(2)=3 because the smallest triangular number with 2 divisors is T(2)=3.
- Attila Pethö, The Pell sequence contains only trivial perfect powers, Kossuth Lajos University, Department of Computer Science, H-4010 Debrecen, P.O. Box 12, Hungary, Dedicated to V.T. Sós and A. Hajnal, May 18 2008.
- Project Euler, Highly divisible triangular number, Problem 12.
- Jon E. Schoenfield, Table of n, a(n) for known terms in n = 1..100, with notes on unknown terms
More terms from Victoria A Sapko (vsapko(AT)frc.mass.edu), Sep 28 2007
A309507
Number of ways the n-th triangular number T(n) = A000217(n) can be written as the difference of two positive triangular numbers.
Original entry on oeis.org
0, 1, 1, 1, 3, 3, 1, 2, 5, 3, 3, 3, 3, 7, 3, 1, 5, 5, 3, 7, 7, 3, 3, 5, 5, 7, 7, 3, 7, 7, 1, 3, 7, 7, 11, 5, 3, 7, 7, 3, 7, 7, 3, 11, 11, 3, 3, 5, 8, 11, 7, 3, 7, 15, 7, 7, 7, 3, 7, 7, 3, 11, 5, 3, 15, 7, 3, 7, 15, 7, 5, 5, 3, 11, 11, 7, 15, 7, 3, 9, 9, 3, 7
Offset: 1
a(5) = 3: T(5) = T(6)-T(3) = T(8)-T(6) = T(15)-T(14).
a(7) = 1: T(7) = T(28)-T(27).
a(8) = 2: T(8) = T(13)-T(10) = T(36)-T(35).
a(9) = 5: T(9) = T(10)-T(4) = T(11)-T(6) = T(16)-T(13) = T(23)-T(21) = T(45)-T(44).
a(49) = 8: T(49) = T(52)-T(17) = T(61)-T(36) = T(94)-T(80) = T(127)-T(117) = T(178)-T(171) = T(247)-T(242) = T(613)-T(611) = T(1225)-T(1224).
The triples with n <= 16 are:
2, 2, 3
3, 5, 6
4, 9, 10
5, 3, 6
5, 6, 8
5, 14, 15
6, 5, 8
6, 9, 11
6, 20, 21
7, 27, 28
8, 10, 13
8, 35, 36
9, 4, 10
9, 6, 11
9, 13, 16
9, 21, 23
9, 44, 45
10, 8, 13
10, 26, 28
10, 54, 55
11, 14, 18
11, 20, 23
11, 65, 66
12, 17, 21
12, 24, 27
12, 77, 78
13, 9, 16
13, 44, 46
13, 90, 91
14, 5, 15
14, 11, 18
14, 14, 20
14, 18, 23
14, 33, 36
14, 51, 53
14, 104, 105
15, 21, 26
15, 38, 41
15, 119, 120
16, 135, 136. - _N. J. A. Sloane_, Mar 31 2020
- Alois P. Heinz, Table of n, a(n) for n = 1..20000
- J. S. Myers, R. Schroeppel, S. R. Shannon, N. J. A. Sloane, and P. Zimmermann, Three Cousins of Recaman's Sequence, arXiv:2004:14000 [math.NT], April 2020.
- M. A. Nyblom, On the representation of the integers as a difference of nonconsecutive triangular numbers, Fibonacci Quarterly 39:3 (2001), pp. 256-263.
See also
A053141. The monotonic triples [n,k,m] with n <= k <= m are counted in
A333529.
-
with(numtheory): seq(tau(n*(n+1))-tau(n*(n+1)/2)-1, n=1..80); # Ridouane Oudra, Dec 08 2023
-
TriTriples[TNn_] := Sort[Select[{TNn, (TNn + TNn^2 - # - #^2)/(2 #),
(TNn + TNn^2 - # + #^2)/(2 #)} & /@
Complement[Divisors[TNn (TNn + 1)], {TNn}],
And[And @@ (IntegerQ /@ #), And @@ (# > 0 & /@ #)] &]]
Length[TriTriples[#]] & /@ Range[100]
(* Bradley Klee, Mar 01 2020 *)
A276678
Number of divisors of the n-th pentagonal number.
Original entry on oeis.org
1, 2, 6, 4, 4, 4, 8, 6, 6, 4, 10, 16, 4, 4, 16, 8, 6, 6, 12, 8, 8, 8, 8, 12, 6, 8, 32, 8, 4, 8, 8, 20, 12, 4, 24, 12, 8, 4, 16, 24, 4, 16, 14, 8, 12, 4, 16, 32, 6, 6, 24, 16, 4, 16, 16, 12, 16, 4, 16, 16, 8, 8, 24, 12, 8, 8, 18, 16, 8, 16, 8, 36, 4, 8, 60, 8
Offset: 1
a(7) = 8 because the 7th pentagonal number is 70, which has 8 divisors: 1,2,5,7,10,14,35,70.
-
DivisorSigma[0,PolygonalNumber[5,Range[80]]] (* Harvey P. Dale, Jul 19 2025 *)
-
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
vector(100, n, numdiv(pg(5,n)))
A276679
Number of divisors of the n-th hexagonal number.
Original entry on oeis.org
1, 4, 4, 6, 6, 8, 4, 16, 6, 8, 8, 12, 6, 16, 8, 10, 8, 24, 4, 24, 8, 8, 12, 16, 9, 16, 8, 24, 8, 16, 4, 36, 16, 8, 16, 18, 4, 24, 16, 16, 10, 16, 8, 24, 12, 16, 8, 40, 6, 36, 8, 12, 16, 16, 8, 32, 8, 16, 12, 48, 6, 16, 24, 14, 16, 16, 8, 48, 8, 16, 8, 48, 8
Offset: 1
a(6) = 8 because the 6th hexagonal number is 66, which has 8 divisors: 1,2,3,6,11,22,33,66.
-
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
vector(100, n, numdiv(pg(6,n)))
A276680
Number of divisors of the n-th heptagonal number.
Original entry on oeis.org
1, 2, 6, 4, 4, 5, 10, 6, 8, 4, 8, 12, 4, 4, 24, 16, 4, 8, 8, 8, 12, 4, 16, 24, 6, 4, 20, 8, 4, 18, 12, 10, 12, 4, 16, 16, 8, 8, 36, 12, 4, 16, 8, 16, 16, 4, 12, 24, 9, 12, 32, 8, 4, 10, 32, 12, 12, 8, 8, 40, 4, 4, 48, 12, 16, 12, 8, 8, 16, 8, 20, 48, 4, 4
Offset: 1
a(3) = 6 because the 3rd heptagonal number is 18, which has 6 divisors: 1,2,3,6,9,18.
-
DivisorSigma[0,PolygonalNumber[7,Range[80]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 09 2017 *)
-
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
vector(100, n, numdiv(pg(7,n)))
A276681
Number of divisors of the n-th octagonal number.
Original entry on oeis.org
1, 4, 4, 8, 4, 12, 4, 10, 9, 16, 4, 16, 4, 20, 8, 12, 6, 24, 8, 16, 8, 16, 4, 40, 6, 16, 8, 16, 8, 40, 8, 14, 8, 24, 8, 24, 4, 24, 16, 20, 6, 32, 4, 32, 24, 20, 4, 24, 12, 24, 8, 32, 4, 56, 8, 20, 12, 16, 12, 32, 4, 20, 24, 32, 8, 48, 4, 16, 16, 48, 4, 30, 8
Offset: 1
a(4) = 8 because the 4th octagonal number is 40, which has 8 divisors: 1,2,4,5,8,10,20,40.
-
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
vector(150, n, numdiv(pg(8,n)))
A276682
Number of divisors of the n-th 9-gonal number.
Original entry on oeis.org
1, 3, 8, 4, 6, 4, 8, 12, 6, 6, 18, 8, 4, 8, 16, 8, 8, 9, 14, 24, 8, 4, 16, 12, 8, 8, 24, 8, 12, 12, 8, 20, 8, 4, 48, 24, 4, 12, 16, 24, 8, 12, 12, 16, 18, 4, 20, 16, 9, 16, 40, 8, 8, 8, 24, 36, 8, 4, 24, 24, 4, 16, 24, 12, 24, 8, 16, 16, 8, 12, 16, 18, 8, 16
Offset: 1
a(2) = 3 because the 2nd 9-gonal number is 9, which has 3 divisors: 1,3,9.
-
DivisorSigma[0,PolygonalNumber[9,Range[80]]] (* Harvey P. Dale, Dec 02 2024 *)
-
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
vector(150, n, numdiv(pg(9,n)))
A276683
Number of divisors of the n-th 10-gonal number.
Original entry on oeis.org
1, 4, 4, 6, 4, 12, 6, 8, 8, 8, 4, 24, 6, 8, 12, 10, 8, 16, 4, 24, 12, 16, 4, 24, 6, 8, 20, 12, 4, 32, 6, 24, 12, 16, 8, 24, 8, 8, 16, 16, 8, 48, 6, 12, 16, 8, 8, 50, 6, 12, 12, 24, 8, 20, 16, 32, 24, 8, 4, 36, 4, 24, 16, 28, 8, 32, 8, 12, 24, 16, 4, 64, 6, 8
Offset: 1
a(4) = 6 because the 4th 10-gonal number is 52, which has 6 divisors: 1,2,4,13,26,52.
-
DivisorSigma[0,PolygonalNumber[10,Range[80]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 05 2021 *)
-
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
vector(150, n, numdiv(pg(10,n)))
A133950
a(n) = the number of "isolated divisors" of n(n+1)/2. A positive divisor k of n is isolated if neither k-1 nor k+1 divides n.
Original entry on oeis.org
1, 2, 1, 2, 4, 4, 4, 5, 6, 4, 5, 5, 4, 8, 10, 6, 6, 6, 6, 8, 8, 4, 8, 12, 6, 8, 11, 6, 8, 8, 8, 14, 8, 8, 14, 9, 4, 8, 16, 8, 8, 8, 6, 16, 12, 4, 12, 17, 9, 12, 13, 6, 8, 16, 18, 18, 8, 4, 11, 11, 4, 12, 28, 20, 16, 8, 6, 13, 16, 8, 14, 14, 4, 12, 19, 14, 16, 8, 12, 31, 10, 4, 11, 22, 8, 8, 18
Offset: 1
a(8)=5 because 36 (=8*9/2) has 5 isolated divisors: 6,9,12,18,36.
-
with(numtheory): b:=proc(n) local div, ISO, i: div:=divisors(n): ISO:={}: for i to tau(n) do if member(div[i]-1,div)=false and member(div[i]+1,div)=false then ISO:= `union`(ISO,{div[i]}) end if end do end proc: seq(nops(b((1/2)*j*(j+1))),j=1..80); # Emeric Deutsch, Oct 15 2007
Showing 1-10 of 17 results.
Comments