A007862 -id:A007862 - cp's OEIS frontend

A049992 a(n) is the number of arithmetic progressions of 3 or more positive integers, nondecreasing with sum n.

0, 0, 1, 1, 1, 3, 1, 2, 4, 3, 1, 7, 1, 3, 8, 4, 1, 10, 1, 6, 10, 4, 1, 14, 4, 4, 12, 7, 1, 19, 1, 6, 14, 5, 7, 22, 1, 5, 16, 12, 1, 24, 1, 8, 25, 6, 1, 27, 4, 12, 21, 9, 1, 29, 9, 12, 23, 7, 1, 40, 1, 7, 30, 11, 10, 35, 1, 10, 27, 21, 1, 42, 1, 8, 39, 11, 7, 40, 1, 22, 35, 9, 1, 49, 12, 9, 34

Offset: 1

Clark Kimberling

nonn

Antti Karttunen, Table of n, a(n) for n = 1..12580
Sadek Bouroubi and Nesrine Benyahia Tani, Integer partitions into arithmetic progressions, Rostok. Math. Kolloq. 64 (2009), 11-16.
Sadek Bouroubi and Nesrine Benyahia Tani, Integer partitions into arithmetic progressions with an odd common difference, Integers 9(1) (2009), 77-81.
Jon Maiga, Computer-generated formulas for A049992, Sequence Machine.
Graeme McRae, Counting arithmetic sequences whose sum is n.
Graeme McRae, Counting arithmetic sequences whose sum is n [Cached copy]
Augustine O. Munagi and Temba Shonhiwa, On the partitions of a number into arithmetic progressions, Journal of Integer Sequences 11 (2008), Article 08.5.4.
A. N. Pacheco Pulido, Extensiones lineales de un poset y composiciones de números multipartitos, Maestría thesis, Universidad Nacional de Colombia, 2012.
Wikipedia, Arithmetic progression.

Cf. A007862, A014405, A023645, A049980, A049981, A049982, A049983, A049986, A049987, A049988, A049989, A049990, A049991, A049992, A049994, A175676, A240026, A240027, A307824, A320466.

A049992(n) = (A014405(n)+A023645(n)); \\ (Uses the programs given in A014405 and A023645) - Antti Karttunen, Feb 20 2023

G.f.: Sum_{k>=3} x^k/(1-x^(k*(k-1)/2))/(1-x^k). [Leroy Quet from A049988] - Petros Hadjicostas, Sep 29 2019

a(n) = A014405(n) + A023645(n) = A049994(n) + A175676(n). [Two of the formulas listed by Sequence Machine, both obviously true] - Antti Karttunen, Feb 20 2023

More terms from Petros Hadjicostas, Sep 29 2019

A300409 Number of centered triangular numbers dividing n.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 2, 1, 2, 1, 3, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 3, 1, 2, 1, 3, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 3, 2, 1, 2, 2, 1, 1, 1, 3

Offset: 1

Ilya Gutkovskiy, Mar 05 2018

nonn

			a(20) = 3 because 20 has 6 divisors {1, 2, 4, 5, 10, 20} among which 3 divisors {1, 4, 10} are centered triangular numbers.

Robert Israel, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Centered Triangular Number.
Index entries for sequences related to centered polygonal numbers.

Cf. A005448, A007862, A279495, A300410, A306324.

N:= 100: # for a(1)..a(N)
V:= Vector(N,1):
for k from 1 do
  m:= 3*k*(k+1)/2+1;
  if m > N then break fi;
  r:= [seq(i,i=m..N,m)];
  V[r]:= map(t->t+1, V[r]);
od:
convert(V,list); # Robert Israel, Mar 05 2018

nmax = 100; Rest[CoefficientList[Series[Sum[x^(3 k (k + 1)/2 + 1)/(1 - x^(3 k (k + 1)/2 + 1)), {k, 0, nmax}], {x, 0, nmax}], x]]

G.f.: Sum_{k>=0} x^(3*k*(k+1)/2+1)/(1 - x^(3*k*(k+1)/2+1)).

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A306324 = 1.5670651... . - Amiram Eldar, Jan 02 2024

A364672 Number of subsets of {1..n} not containing all of their own first differences.

Original entry on oeis.org

0, 0, 0, 2, 6, 18, 41, 94, 198, 416, 853, 1746, 3531, 7151, 14415, 29049, 58431, 117528, 236145, 474436, 952627, 1912494, 3838175, 7701540, 15449676, 30988137, 62142415, 124600422, 249795358, 500719994, 1003575768, 2011211100, 4030123185, 8074898552, 16177657763, 32408393211, 64917907623

Offset: 0

Gus Wiseman, Aug 05 2023

nonn

			The a(0) = 0 through a(5) = 18 subsets:
  .  .  .  {1,3}  {1,3}    {1,3}
           {2,3}  {1,4}    {1,4}
                  {2,3}    {1,5}
                  {3,4}    {2,3}
                  {1,3,4}  {2,5}
                  {2,3,4}  {3,4}
                           {3,5}
                           {4,5}
                           {1,2,5}
                           {1,3,4}
                           {1,3,5}
                           {1,4,5}
                           {2,3,4}
                           {2,3,5}
                           {2,4,5}
                           {3,4,5}
                           {1,3,4,5}
                           {2,3,4,5}

For disjunction instead of containment we have A364463, partitions A363260.
For overlap we have A364466, partitions A364467 (strict A364536).
The complement is counted by A364671, partitions A364673, A364674, A364675.
First differences of terms are A364753, complement A364752.
Cf. A007862, A054519, A151897, A237667, A325325, A326083, A363225, A364345, A364464, A364537.

Table[Length[Select[Subsets[Range[n]],!SubsetQ[#,Differences[#]]&]],{n,0,10}]

a(n) = 2^n - A364671(n). - Andrew Howroyd, Jan 27 2024

a(21) onwards (using A364671) added by Andrew Howroyd, Jan 27 2024

A364675 Number of integer partitions of n whose nonzero first differences are a submultiset of the parts.

Original entry on oeis.org

1, 1, 2, 3, 4, 4, 7, 7, 10, 12, 15, 15, 26, 25, 35, 45, 55, 60, 86, 94, 126, 150, 186, 216, 288, 328, 407, 493, 610, 699, 896, 1030, 1269, 1500, 1816, 2130, 2620, 3029, 3654, 4300, 5165, 5984, 7222, 8368, 9976, 11637, 13771, 15960, 18978, 21896, 25815, 29915

Offset: 0

Gus Wiseman, Aug 04 2023

nonn

Conjecture: For subsets of {1..n} instead of partitions of n we have A101925.

Conjecture: The strict version is A154402.

			The partition y = (3,2,1,1) has first differences (1,1,0), and (1,1) is a submultiset of y, so y is counted under a(7).
The a(1) = 1 through a(8) = 10 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (221)    (33)      (421)      (44)
             (111)  (211)   (2111)   (42)      (2221)     (422)
                    (1111)  (11111)  (222)     (3211)     (2222)
                                     (2211)    (22111)    (4211)
                                     (21111)   (211111)   (22211)
                                     (111111)  (1111111)  (32111)
                                                          (221111)
                                                          (2111111)
                                                          (11111111)

For subsets of {1..n} we appear to have A101925, A364671, A364672.
The strict case (no differences of 0) appears to be A154402.
Starting with the distinct parts gives A342337.
For disjoint multisets: A363260, subsets A364463, strict A364464.
For overlapping multisets: A364467, ranks A364537, strict A364536.
For subsets instead of submultisets we have A364673.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A236912 counts sum-free partitions, complement A237113.
A325325 counts partitions with distinct first differences.
Cf. A002865, A007862, A108917, A229816, A237667, A237668, A320347, A363225, A364272, A364345, A364466.

submultQ[cap_,fat_] := And@@Function[i,Count[fat,i] >= Count[cap,i]] /@ Union[List@@cap];
Table[Length[Select[IntegerPartitions[n], submultQ[Differences[Union[#]],#]&]], {n,0,30}]

A099475 Number of divisors d of n such that d+2 is also a divisor of n.

Original entry on oeis.org

0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 3, 0, 0, 2, 1, 0, 1, 0, 1, 1, 0, 0, 4, 0, 0, 1, 1, 0, 2, 0, 1, 1, 0, 1, 3, 0, 0, 1, 2, 0, 1, 0, 1, 2, 0, 0, 4, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 5, 0, 0, 2, 1, 0, 1, 0, 1, 1, 1, 0, 4, 0, 0, 2, 1, 0, 1, 0, 2, 1, 0, 0, 4, 0, 0, 1, 1, 0, 2, 0, 1, 1, 0, 0, 4, 0, 0, 2, 1, 0, 1, 0, 1, 3

Offset: 1

Reinhard Zumkeller, Oct 18 2004

Number of r X s rectangles with integer sides such that r < s, r + s = 2n, r | s and (s - r) | (s * r). - Wesley Ivan Hurt, Apr 24 2020

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A007862 (similar but with d+1 instead).
Cf. A008585, A008586, A008588.
Cf. A059267, A099476, A099477.

A099475:= proc(n)
local d;
  d:= numtheory:-divisors(n);
nops(d intersect map(`+`,d,2))
end proc:
map(A099475,[$1..1000]); # Robert Israel, Jun 19 2015

a[n_] := DivisorSum[n, Boole[Divisible[n, #+2]]&]; Array[a, 105] (* Jean-François Alcover, Dec 07 2015 *)

A099475(n) = { sumdiv(n, d, ! (n % (d+2))) } \\ Michel Marcus, Jun 18 2015

0 <= a(n) <= a(m*n) for all m>0;
a(A099477(n)) = 0; a(A059267(n)) > 0;
a(A099476(n)) = n and a(m) <> n for m < A099476(n).
For n>0: a(A008585(n))>0, a(A008586(n))>0 and a(A008588(n))>0.
a(n) = Sum_{i=1..n-1} chi((2*n-i)/i) * chi(i*(2*n-i)/(2*n-2*i)), where chi(n) = 1 - ceiling(n) + floor(n). - Wesley Ivan Hurt, Apr 24 2020

A332668 Number of strict integer partitions of n without three consecutive parts in arithmetic progression.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 5, 6, 6, 9, 11, 11, 15, 20, 19, 26, 31, 34, 41, 50, 53, 67, 78, 84, 99, 120, 130, 154, 177, 193, 226, 262, 291, 332, 375, 419, 479, 543, 608, 676, 765, 859, 961, 1075, 1202, 1336, 1495, 1672, 1854, 2050, 2301, 2536, 2814, 3142, 3448, 3809

Offset: 0

Gus Wiseman, Mar 28 2020

nonn

Also the number of strict integer partitions of n whose first differences are an anti-run, meaning there are no adjacent equal differences.

			The a(1) = 1 through a(10) = 9 partitions (A = 10):
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)
            (21)  (31)  (32)  (42)  (43)   (53)   (54)   (64)
                        (41)  (51)  (52)   (62)   (63)   (73)
                                    (61)   (71)   (72)   (82)
                                    (421)  (431)  (81)   (91)
                                           (521)  (621)  (532)
                                                         (541)
                                                         (631)
                                                         (721)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..450
Wikipedia, Arithmetic progression

Anti-run compositions are counted by A003242.
Normal anti-runs of length n + 1 are counted by A005649.
Strict partitions with equal differences are A049980.
Partitions with equal differences are A049988.
The non-strict version is A238424.
The version for permutations is A295370.
Anti-run compositions are ranked by A333489.
Cf. A006560, A007862, A238423, A307824, A325328, A325852, A325874, A333195.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&!MatchQ[Differences[#],{_,x_,x_,_}]&]],{n,0,30}]

A364674 Number of integer partitions of n containing all of their own nonzero first differences.

Original entry on oeis.org

1, 1, 2, 3, 4, 4, 8, 7, 11, 13, 17, 18, 32, 30, 44, 54, 70, 78, 114, 125, 171, 205, 257, 302, 408, 464, 592, 711, 892, 1042, 1330, 1543, 1925, 2279, 2787, 3291, 4061, 4727, 5753, 6792, 8197, 9583, 11593, 13505, 16198, 18965, 22548, 26290, 31340, 36363, 43046

Offset: 0

Gus Wiseman, Aug 04 2023

nonn

			The partition (10,5,3,3,2,1) has nonzero differences (5,2,1,1) so is counted under a(24).
The a(1) = 1 through a(9) = 13 partitions:
  (1) (2)  (3)   (4)    (5)     (6)      (7)       (8)        (9)
      (11) (21)  (22)   (221)   (33)     (421)     (44)       (63)
           (111) (211)  (2111)  (42)     (2221)    (422)      (333)
                 (1111) (11111) (222)    (3211)    (2222)     (3321)
                                (321)    (22111)   (3221)     (4221)
                                (2211)   (211111)  (4211)     (22221)
                                (21111)  (1111111) (22211)    (32211)
                                (111111)           (32111)    (42111)
                                                   (221111)   (222111)
                                                   (2111111)  (321111)
                                                   (11111111) (2211111)
                                                              (21111111)
                                                              (111111111)

For no differences we have A363260, subsets A364463, strict A364464.
For at least one difference we have A364467, ranks A364537, strict A364536.
For subsets instead of partitions we have A364671, complement A364672.
The strict case (no differences of 0) is counted by A364673.
For submultisets instead of subsets we have A364675.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A236912 counts sum-free partitions w/o re-used parts, complement A237113.
A325325 counts partitions with distinct first differences.
Cf. A002865, A007862, A025065, A229816, A237667, A320347, A326083, A363225, A364272, A364466.

Table[Length[Select[IntegerPartitions[n], SubsetQ[#,Differences[Union[#]]]&]],{n,0,30}]

A239930 Number of distinct quarter-squares dividing n.

Original entry on oeis.org

1, 2, 1, 3, 1, 3, 1, 3, 2, 2, 1, 5, 1, 2, 1, 4, 1, 4, 1, 4, 1, 2, 1, 5, 2, 2, 2, 3, 1, 4, 1, 4, 1, 2, 1, 7, 1, 2, 1, 4, 1, 4, 1, 3, 2, 2, 1, 6, 2, 3, 1, 3, 1, 4, 1, 4, 1, 2, 1, 7, 1, 2, 2, 5, 1, 3, 1, 3, 1, 2, 1, 8, 1, 2, 2, 3, 1, 3, 1, 5, 3, 2, 1, 6, 1, 2, 1, 3, 1, 6, 1, 3, 1, 2, 1, 6, 1, 3, 2, 6, 1, 3, 1, 3, 1, 2, 1, 7, 1, 3

Offset: 1

Omar E. Pol, Jun 19 2014

nonn

For more information about the quarter-squares see A002620.

			For n = 12 the quarter-squares <= 12 are [0, 0, 1, 2, 4, 6, 9, 12]. There are five quarter-squares that divide 12; they are [1, 2, 4, 6, 12], so a(12) = 5.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Wikipedia, Table of divisors.

Cf. A000005, A001221, A001511, A002620, A005086, A006519, A007862, A013661, A027750, A046951, A147645, A236103.

Cf. A240025.

a239930 = sum . map a240025 . a027750_row
-- Reinhard Zumkeller, Jul 05 2014

isA002620 := proc(n)
    local k,qsq ;
    for k from 0 do
        qsq := floor(k^2/4) ;
        if n = qsq then
            return true;
        elif qsq > n then
            return false;
        end if;
    end do:
end proc:
A239930 := proc(n)
    local a,d ;
    a :=0 ;
    for d in numtheory[divisors](n) do
        if isA002620(d) then
            a:= a+1 ;
        end if;
    end do:
    a;
end proc: # R. J. Mathar, Jul 03 2014

qsQ[n_] := AnyTrue[Range[Ceiling[2 Sqrt[n]]], n == Floor[#^2/4]&]; a[n_] := DivisorSum[n, Boole[qsQ[#]]&]; Array[a, 110] (* Jean-François Alcover, Feb 12 2018 *)

a(n) = sumdiv(n, d, issquare(d) + issquare(4*d + 1)); \\ Amiram Eldar, Dec 31 2023

a(n) = Sum_{k=1..A000005(n)} A240025(A027750(n,k)). - Reinhard Zumkeller, Jul 05 2014

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = zeta(2) + 1 = A013661 + 1 = 2.644934... . - Amiram Eldar, Dec 31 2023

A279497 Number of pentagonal numbers dividing n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 2, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 2, 1, 1, 1, 4, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, 2, 1, 1, 1, 2, 1, 2, 1, 1, 3, 1, 1, 2, 1, 3, 1, 1, 1, 1, 2, 1, 2, 1, 1, 3

Offset: 1

Ilya Gutkovskiy, Dec 13 2016

			a(12) = 2 because 12 has 6 divisors {1,2,3,4,6,12} among which 2 divisors {1,12} are pentagonal numbers.

Antti Karttunen, Table of n, a(n) for n = 1..101270
Eric Weisstein's World of Mathematics, Pentagonal Number.
Index to sequences related to polygonal numbers.

Cf. A000326, A007862, A046951, A244641.

Inverse Möbius transform of A255849.

Rest[CoefficientList[Series[Sum[x^(k (3k -1)/2)/(1 - x^(k (3k -1)/2)), {k, 120}], {x, 0, 120}], x]]
Table[Count[Divisors[n],?(IntegerQ[(1+Sqrt[1+24#])/6]&)],{n,120}] (* _Harvey P. Dale, Jan 05 2022 *)

a(n) = sumdiv(n, d, ispolygonal(d, 5)); \\ Michel Marcus, Jul 27 2022

G.f.: Sum_{k>=1} x^(k*(3*k-1)/2)/(1 - x^(k*(3*k-1)/2)).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 3*log(3) - Pi/sqrt(3) = 1.482037... (A244641). - Amiram Eldar, Jan 02 2024
a(n) = Sum_{d|n} A255849(d). - Antti Karttunen, Jan 14 2025

A350756 Integers whose number of divisors that are triangular numbers sets a new record.

Original entry on oeis.org

1, 3, 6, 30, 90, 180, 210, 420, 630, 1260, 2520, 6930, 13860, 27720, 41580, 83160, 138600, 180180, 360360, 540540, 1081080, 1413720, 2162160, 3063060, 6126120, 12252240, 18378360, 36756720, 73513440, 91891800, 116396280, 183783600, 232792560, 349188840

Offset: 1

Bernard Schott, Jan 13 2022

nonn

Terms that are triangular: 1, 3, 6, 210, 630, 2162160, ...

The number of triangular divisors of a(n) is A007862(a(n)): 1, 2, 3, 5, 6, 7, 8, 9, 10, 12, ...

			1260 has 36 divisors of which 12 are triangular numbers {1, 3, 6, 10, 15, 21, 28, 36, 45, 105, 210, 630}. No positive integer smaller than 1260 has as many as twelve triangular divisors; hence 1260 is a term.

Cf. A000217, A007862, A130317.

Similar for A046952 (squares), A053624 (odd), A093036 (palindromes), A181808 (even), A340548 (repdigits), A340549 (repunits) divisors.

max=0;Do[If[(d=Length@Select[Divisors@k,IntegerQ[(Sqrt[8#+1]-1)/2]&])>max,Print@k;max=d],{k,10^10}] (* Giorgos Kalogeropoulos, Jan 13 2022 *)

lista(nn) = {my(r=0); for (n=1, nn, my(m = sumdiv(n, d, ispolygonal(d,3))); if (m>r, r=m; print1(n", ")));} \\ Michel Marcus, Jan 14 2022

cp's OEIS Frontend

A049992 a(n) is the number of arithmetic progressions of 3 or more positive integers, nondecreasing with sum n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

Extensions

A300409 Number of centered triangular numbers dividing n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A364672 Number of subsets of {1..n} not containing all of their own first differences.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A364675 Number of integer partitions of n whose nonzero first differences are a submultiset of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A099475 Number of divisors d of n such that d+2 is also a divisor of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A332668 Number of strict integer partitions of n without three consecutive parts in arithmetic progression.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A364674 Number of integer partitions of n containing all of their own nonzero first differences.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A239930 Number of distinct quarter-squares dividing n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs