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

A144396 The odd numbers greater than 1.

Original entry on oeis.org

3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 109, 111, 113, 115, 117, 119, 121, 123, 125, 127, 129, 131, 133
Offset: 1

Views

Author

Paul Curtz, Oct 03 2008

Keywords

Comments

Last number of the n-th row of the triangle described in A142717.
If negated, these are also the values at local minima of the sequence A141620.
a(n) is the shortest leg of the n-th Pythagorean triple with consecutive longer leg and hypotenuse. The n-th such triple is given by (2n+1,2n^2+2n, 2n^2+2n+1), so that the longer legs are A046092(n) and the hypotenuses are A099776(n). - Ant King, Feb 10 2011
Numbers k such that the symmetric representation of sigma(k) has a pair of bars as its ends (cf. A237593). - Omar E. Pol, Sep 28 2018
Numbers k such that there is a prime knot with k crossings and braid index 2. (IS this true with "prime" removed?) - Charles R Greathouse IV, Feb 14 2023

Crossrefs

Complement of A004275 and of A004277.
Essentially the same as A140139, A130773, A062545, A020735, A005818.

Programs

Formula

a(n) = A005408(n+1) = A000290(n+1) - A000290(n).
G.f.: x*(3-x)/(1-x)^2. - Jaume Oliver Lafont, Aug 30 2009
a(n) = A254858(n-1,2). - Reinhard Zumkeller, Feb 09 2015

Extensions

Edited by R. J. Mathar, May 21 2009

A130773 a(0) = 0, a(1) = 2, a(n) = 2*n + 1 for n >= 2.

Original entry on oeis.org

0, 2, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 109, 111, 113, 115, 117, 119, 121, 123, 125, 127, 129, 131, 133, 135, 137, 139, 141
Offset: 0

Views

Author

Paul Curtz, Jul 14 2007

Keywords

Comments

Apart from initial term, identical to A140139 if offsets are ignored. - R. J. Mathar, May 11 2008

Crossrefs

Cf. A140139.

Programs

  • Mathematica
    LinearRecurrence[{2,-1},{0,2,5,7},71] (* Stefano Spezia, Apr 20 2025 *)

Formula

O.g.f.: x*(1 + x)*(2 - x)/(1 - x)^2. - R. J. Mathar, May 11 2008
E.g.f.: exp(x)*(1 + 2*x) - 1 - x. - Stefano Spezia, Apr 20 2025

A163985 Sum of all isolated parts of all partitions of n.

Original entry on oeis.org

0, 1, 2, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 109, 111, 113
Offset: 0

Views

Author

Omar E. Pol, Aug 14 2009

Keywords

Comments

Note that for n >= 3 the isolated parts of all partitions of n are n and n-1.

Examples

			For n=4, the five partitions of 4 are {(4);(2,2);(3,1);(2,1,1);(1,1,1,1)}. Since 1 and 2 are repeated parts and 3 and 4 are not repeated parts (or isolated parts) then a(4) = 3 + 4 = 7.
		

Crossrefs

Programs

Formula

a(n) = n for n<3, a(n) = 2*n-1 for n>=3.
a(n) = A140139(n), n>=1.
a(n) = A130773(n-1), n >=2. - R. J. Mathar, Jan 25 2023
From Stefano Spezia, Apr 21 2025: (Start)
G.f.: x*(1 + 2*x^2 - x^3)/(1 - x)^2.
E.g.f.: 1 - x^2/2 - exp(x)*(1 - 2*x). (End)

A223134 Number of distinct sums i+j+k with i,j,k >= 0, i*j*k <= n.

Original entry on oeis.org

1, 4, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 109, 111, 113, 115, 117, 119, 121, 123, 125
Offset: 0

Views

Author

Robert Price, Jun 12 2013

Keywords

Comments

Appears to be essentially the same as A176271, A140139, A130773, A062545. - R. J. Mathar, Aug 23 2024

Crossrefs

Programs

  • Mathematica
    f[n_] := Length[Complement[Union[Flatten[Table[If[i*j*k <= n, {i + j + k}], {i, 0, n}, {j, 0, n}, {k, 0, n}], 2]], {Null}]]; Table[f[n], {n, 0, 100}]
Showing 1-4 of 4 results.