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

A175328 a(n) is the number of terms in row n of irregular table A175327. For n >= 1, a(n) = number of runs (of both 0's and 1's) in the binary representation of A175326(n).

Original entry on oeis.org

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

Views

Author

Leroy Quet, Apr 07 2010

Keywords

Comments

a(0) = 0 is the number of terms in the empty list.

Crossrefs

Extensions

More terms from Rémy Sigrist, Nov 08 2018

A175342 Number of arithmetic progressions (where the difference between adjacent terms is either positive, 0, or negative) of positive integers that sum to n.

Original entry on oeis.org

1, 2, 4, 5, 6, 10, 8, 10, 15, 14, 12, 22, 14, 18, 28, 21, 18, 34, 20, 28, 38, 28, 24, 46, 31, 32, 48, 38, 30, 62, 32, 40, 58, 42, 46, 73, 38, 46, 68, 58, 42, 84, 44, 56, 90, 56, 48, 94, 55, 70, 90, 66, 54, 106, 70, 74, 100, 70, 60, 130, 62, 74, 118, 81, 82, 130, 68, 84, 120
Offset: 1

Views

Author

Leroy Quet, Apr 17 2010

Keywords

Examples

			From _Gus Wiseman_, May 15 2019: (Start)
The a(1) = 1 through a(8) = 10 compositions with equal differences:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (12)   (13)    (14)     (15)      (16)       (17)
             (21)   (22)    (23)     (24)      (25)       (26)
             (111)  (31)    (32)     (33)      (34)       (35)
                    (1111)  (41)     (42)      (43)       (44)
                            (11111)  (51)      (52)       (53)
                                     (123)     (61)       (62)
                                     (222)     (1111111)  (71)
                                     (321)                (2222)
                                     (111111)             (11111111)
(End)
		

Crossrefs

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],SameQ@@Differences[#]&]],{n,0,15}] (* returns a(0) = 1, Gus Wiseman, May 15 2019*)

Formula

a(n) = 2*A049988(n) - A000005(n).
G.f.: x/(1-x) + Sum_{k>=2} x^k * (1 + x^(k(k-1)/2)) / (1 - x^(k(k-1)/2)) / (1 -x^k).

Extensions

Edited and extended by Max Alekseyev, May 03 2010

A068322 Number of arithmetic progressions of positive odd integers, strictly increasing with sum n.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 1, 2, 2, 2, 1, 3, 1, 3, 3, 5, 1, 4, 1, 5, 4, 5, 1, 7, 2, 6, 5, 8, 1, 7, 1, 9, 6, 8, 2, 11, 1, 9, 7, 12, 1, 10, 1, 12, 10, 11, 1, 15, 2, 12, 9, 15, 1, 13, 3, 16, 10, 14, 1, 18, 1, 15, 12, 20, 4, 17, 1, 19, 12, 17, 1, 22, 1, 18, 16, 22, 2, 20, 1, 24, 15, 20, 1, 25, 5, 21, 15, 26
Offset: 1

Views

Author

Naohiro Nomoto, Feb 27 2002

Keywords

Examples

			From _Petros Hadjicostas_, Sep 29 2019: (Start)
a(12) = 3 because we have the following arithmetic progressions of odd numbers, strictly increasing with sum n=12: 1+11, 3+9, and 5+7.
a(13) = 1 because we have only the following arithmetic progressions of odd numbers, strictly increasing with sum n=13: 13.
a(14) = 3 because we have the following arithmetic progressions of odd numbers, strictly increasing with sum n=14: 1+13, 3+11, and 5+9.
a(15) = 3 because we have the following arithmetic progressions of odd numbers, strictly increasing with sum n=15: 15, 3+5+7, and 1+5+9.
(End)
		

Crossrefs

Formula

From Petros Hadjicostas, Oct 01 2019: (Start)
a(n) = A068324(n) - A001227(n) + (1/2) * (1 - (-1)^n).
G.f.: x/(1 - x^2) + Sum_{m >= 2} x^(m^2)/((1 - x^(2*m)) * (1 - x^(m*(m-1)))).
(End)

A068324 Number of nondecreasing arithmetic progressions of positive odd integers with sum n.

Original entry on oeis.org

1, 1, 2, 2, 2, 3, 2, 3, 4, 4, 2, 5, 2, 5, 6, 6, 2, 7, 2, 7, 7, 7, 2, 9, 4, 8, 8, 10, 2, 11, 2, 10, 9, 10, 5, 14, 2, 11, 10, 14, 2, 14, 2, 14, 15, 13, 2, 17, 4, 15, 12, 17, 2, 17, 6, 18, 13, 16, 2, 22, 2, 17, 17, 21, 7, 21, 2, 21, 15, 21, 2, 25, 2, 20, 21, 24, 5, 24, 2, 26, 19, 22, 2, 29, 8
Offset: 1

Views

Author

Naohiro Nomoto, Feb 27 2002

Keywords

Examples

			From _Petros Hadjicostas_, Sep 29 2019: (Start)
a(6) = 3 because we have the following nondecreasing arithmetic progressions of positive odd integers with sum n=6: 1+5, 3+3, and 1+1+1+1+1+1.
a(7) = 2 because we have the following nondecreasing arithmetic progressions of positive odd integers with sum n=7: 7 and 1+1+1+1+1+1+1.
a(8) = 3 because we have the following nondecreasing arithmetic progressions of positive odd integers with sum n=8: 1+7, 3+5, and 1+1+1+1+1+1+1+1.
(End)
		

Crossrefs

Formula

From Petros Hadjicostas, Oct 01 2019: (Start)
a(n) = A068322(n) + A001227(n) - (1/2) * (1 - (-1)^n).
G.f.: x/(1 - x^2) + Sum_{m >= 2} x^m/((1 - x^(2*m)) * (1 - x^(m*(m-1)))).
(End)

Extensions

Extended and edited by John W. Layman, Mar 15 2002

A175326 A positive integer n is included if the run-lengths (of runs both of 0's and of 1's) of the binary representation of n form an arithmetic progression (when written in order).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 15, 16, 21, 24, 28, 30, 31, 32, 39, 42, 48, 51, 56, 57, 60, 62, 63, 64, 85, 96, 112, 120, 124, 126, 127, 128, 170, 192, 204, 224, 240, 248, 252, 254, 255, 256, 287, 341, 384, 399, 448, 455, 480, 483, 496, 497, 504
Offset: 1

Views

Author

Leroy Quet, Apr 07 2010

Keywords

Comments

The difference between the lengths of consecutive runs in binary n may be either positive, 0, or negative.
This sequence provides a way to order all of the finite sequences each of positive integers arranged in an arithmetic progression (with common difference between consecutive integers being either positive, zero, or negative). See A175327.

Examples

			57 in binary is 111001. The run lengths are therefore 3,2,1, and (3,2,1) forms an arithmetic progression; so 57 is in this sequence.
		

Crossrefs

Programs

  • Mathematica
    Select[Range@504, 2 > Length@Union@Differences[Length /@ Split@IntegerDigits[#, 2]] &] (* Giovanni Resta, Feb 15 2013 *)

Extensions

a(30)-a(58) from Lars Blomberg, Feb 15 2013
Showing 1-5 of 5 results.