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

A049986 a(n) is the number of arithmetic progressions of 4 or more positive integers, strictly increasing with sum n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 2, 1, 2, 0, 1, 2, 2, 1, 3, 0, 4, 0, 2, 1, 3, 4, 4, 0, 3, 1, 6, 0, 5, 0, 4, 6, 4, 0, 4, 2, 8, 2, 5, 0, 6, 6, 6, 2, 5, 0, 11, 0, 5, 5, 6, 7, 8, 0, 6, 2, 15, 0, 9, 0, 6, 10, 7, 4, 9, 0, 14, 5, 7, 0, 12, 9, 7, 3
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

Formula

G.f.: Sum_{k >= 4} x^t(k)/(x^t(k) - x^t(k-1) - x^k + 1) = Sum_{k >= 4} x^t(k)/((1 - x^k)*(1 - x^t(k-1))), where t(k) = k*(k+1)/2 = A000217(k) is the k-th triangular number [Graeme McRae]. - Petros Hadjicostas, Sep 29 2019
a(n) = A049994(n) - A321014(n). [Listed by Sequence Machine and obviously true] - Antti Karttunen, Feb 20 2023

A014406 Number of strictly increasing arithmetic progressions of positive integers with at least 3 terms and sum <= n.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 1, 3, 4, 4, 7, 7, 8, 13, 14, 14, 20, 20, 22, 29, 31, 31, 39, 41, 43, 52, 55, 55, 68, 68, 70, 81, 84, 88, 103, 103, 106, 119, 125, 125, 143, 143, 147, 167, 171, 171, 190, 192, 200, 218, 223, 223, 246, 252, 258, 278, 283, 283, 313, 313, 318, 343, 349, 356, 385, 385
Offset: 1

Views

Author

Keywords

Examples

			From _Petros Hadjicostas_, Sep 29 2019: (Start)
a(8) = 1 because we have only the following strictly increasing arithmetic progression of positive integers with at least 3 terms and sum <= 8: 1+2+3.
a(9) = 3 because we have the following strictly increasing arithmetic progressions of positive integers with at least 3 terms and sum <= 9: 1+2+3, 1+3+5, and 2+3+4.
a(10) = 4 because we have the following strictly increasing arithmetic progressions of positive integers with at least 3 terms and sum <= 10: 1+2+3, 1+3+5, 2+3+4, and 1+2+3+4.
(End)
		

Crossrefs

Formula

a(n) = Sum_{k=1..n} A014405(k). - Sean A. Irvine, Oct 22 2018
G.f.: (g.f. of A014405)/(1-x). - Petros Hadjicostas, Sep 29 2019

Extensions

a(59)-a(67) corrected by Fausto A. C. Cariboni, Oct 02 2018

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

Original entry on oeis.org

0, 1, 2, 3, 3, 6, 4, 6, 8, 8, 6, 13, 7, 10, 15, 12, 9, 19, 10, 16, 20, 15, 12, 26, 16, 17, 25, 21, 15, 34, 16, 22, 30, 22, 24, 40, 19, 24, 35, 32, 21, 45, 22, 30, 47, 29, 24, 51, 28, 37, 46, 35, 27, 56, 36, 40, 51, 36, 30, 70, 31, 38, 61, 43
Offset: 1

Views

Author

Keywords

Examples

			a(6) counts these 6 partitions of 6: [5,1], [4,2], [3,3], [3,2,1], [2,2,2], [1,1,1,1,1,1].
		

Crossrefs

Programs

  • Mathematica
    (* Program 1 *)
    Map[Length[Map[#[[2]] &, Select[Map[{Apply[SameQ, Differences[#]], #} &,
    IntegerPartitions[#]], #[[1]] &]]] &, Range[40]] - 1
    (* Peter J. C. Moses, Dec 24 2016 *)
    (* Program 2 *)
    enumerateArithmeticPartitions[n_] := Module[{allDivs, oddDivs},
    {allDivs, oddDivs} = {#, Select[#, OddQ]} &[Divisors[n]]; Map[Reverse, Union[Flatten[Table[If[OddQ[cDiff], (Flatten[
    Map[{If[(2 n - #) cDiff <= # (# - 2), {Table[(cDiff + # - 2 cDiff n/#)/2 +
    cDiff term, {term, 0, 2 n/# - 1}]}, {}], If[# (# - 1) cDiff <= 2 (n - #),
    {Table[(cDiff + 2 n/# - # cDiff)/2 + cDiff term, {term, 0, # - 1}]},
    {}]} &, oddDivs], 2]), (Flatten[Map[If[(n - #) cDiff <= 2 # (# - 1),
    {Table[(cDiff + 2 # - n cDiff/#)/2 + cDiff term, {term, 0, n/# - 1}]}, {}] &,
    allDivs], 1])], {cDiff, 0, n - 2}], 1]]]];
    Join[{0}, Map[Length[enumerateArithmeticPartitions[#]] - 1 &, Range[2, 300]]]
    n = 12; enumerateArithmeticPartitions[12] (* shows the desired partition of n *)
    (* Peter J. C. Moses, Dec 24 2016 *)

Formula

a(A000040(n)) = A111333(n). - Clark Kimberling, Dec 26 2016
From Petros Hadjicostas, Sep 29 2019: (Start)
a(n) = A049988(n) - 1. [Note that A049988 has offset 0.]
G.f.: Sum_{k>=2} x^k/(1-x^(k*(k-1)/2))/(1-x^k). [Leroy Quet from A049988]
(End)

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

Original entry on oeis.org

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

Views

Author

Keywords

Crossrefs

Programs

Formula

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

Extensions

More terms from Petros Hadjicostas, Sep 29 2019

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

Original entry on oeis.org

0, 0, 0, 1, 1, 1, 1, 2, 1, 3, 1, 3, 1, 3, 3, 4, 1, 4, 1, 6, 3, 4, 1, 6, 4, 4, 3, 7, 1, 9, 1, 6, 3, 5, 7, 10, 1, 5, 3, 12, 1, 10, 1, 8, 10, 6, 1, 11, 4, 12, 4, 9, 1, 11, 9, 12, 4, 7, 1, 20, 1, 7, 9, 11, 10, 13, 1, 10, 4, 21, 1, 18, 1, 8, 14, 11, 7, 14, 1, 22, 8, 9, 1, 21, 12, 9, 5, 15, 1, 29, 8
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

Formula

G.f.: Sum_{k >= 4} x^k/(1-x^(k*(k-1)/2))/(1-x^k). [Leroy Quet from A049988] - Petros Hadjicostas, Sep 29 2019
a(n) = A049992(n) - A175676(n) = A049986(n) + A321014(n). [Two of the formulas listed by Sequence Machine, both obviously true] - Antti Karttunen, Feb 20 2023

Extensions

More terms from Petros Hadjicostas, Sep 29 2019

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

Original entry on oeis.org

0, 0, 1, 2, 3, 6, 7, 9, 13, 16, 17, 24, 25, 28, 36, 40, 41, 51, 52, 58, 68, 72, 73, 87, 91, 95, 107, 114, 115, 134, 135, 141, 155, 160, 167, 189, 190, 195, 211, 223, 224, 248, 249, 257, 282, 288, 289, 316, 320, 332, 353, 362, 363, 392, 401, 413, 436, 443, 444, 484, 485, 492, 522, 533, 543, 578
Offset: 1

Views

Author

Keywords

Crossrefs

Formula

From Petros Hadjicostas, Sep 29 2019: (Start)
a(n) = Sum_{k = 1..n} A049992(k).
G.f.: (g.f. of A049992)/(1-x). (End)

Extensions

More terms from Petros Hadjicostas, Sep 29 2019

A049995 Number of arithmetic progressions of 4 or more positive integers, nondecreasing with sum <= n.

Original entry on oeis.org

0, 0, 0, 1, 2, 3, 4, 6, 7, 10, 11, 14, 15, 18, 21, 25, 26, 30, 31, 37, 40, 44, 45, 51, 55, 59, 62, 69, 70, 79, 80, 86, 89, 94, 101, 111, 112, 117, 120, 132, 133, 143, 144, 152, 162, 168, 169, 180, 184, 196, 200, 209, 210, 221, 230, 242, 246, 253, 254, 274, 275, 282, 291, 302, 312, 325, 326, 336
Offset: 1

Views

Author

Keywords

Crossrefs

Formula

From Petros Hadjicostas, Sep 29 2019: (Start)
a(n) = Sum_{k = 1..n} A049994(k).
G.f.: (g.f. of A049994)/(1-x). (End)

Extensions

More terms from Petros Hadjicostas, Sep 29 2019
Showing 1-7 of 7 results.