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

A145819 Union of A145812 and A145818 with double repetition of 1, so that a(1)=1, a(2)=1.

Original entry on oeis.org

1, 1, 3, 5, 9, 11, 17, 21, 33, 35, 41, 43, 65, 69, 81, 85, 129, 131, 137, 139, 161, 163, 169, 171, 257, 261, 273, 277, 321, 325, 337, 341
Offset: 1

Views

Author

Vladimir Shevelev, Oct 20 2008

Keywords

Comments

Theorem. For every even integer m there exists a representation of the form m=a(r)+a(s). If A(x) is the counting function of a(n)<=x, then A(x)=O(sqrt(x))and Omega(sqrt(x)). Conjecture. The sequence is minimal in the following sense: if any sequence has the counting function B(x)<=A(x) for all x>=1 and B(x) < A(x) for x>=x_0, then there exists an even integer N which is not expressible as a sum of two terms of such sequence.

Crossrefs

A145850 a(n) = A145818(2n-1).

Original entry on oeis.org

1, 17, 65, 81, 257, 273, 321, 337, 1025, 1041, 1089, 1105, 1281, 1297, 1345, 1361, 4097, 4113, 4161, 4177, 4353, 4369, 4417, 4433, 5121, 5137, 5185, 5201, 5377, 5393, 5441, 5457, 16385, 16401, 16449, 16465, 16641, 16657, 16705, 16721, 17409, 17425, 17473, 17489, 17665, 17681
Offset: 1

Views

Author

Vladimir Shevelev, Oct 21 2008

Keywords

Comments

Every positive odd integer m == 3 (mod 16) is a unique sum of the form a(s) + 2a(t), while other odd integers are not expressible in such form.

Crossrefs

Bisection of A145818.

Formula

If f(x) = Sum_{n>=1} x^a(n), abs(x) < 1, then f(x)*f(x^2) = x^3/(1-x^16).

Extensions

More terms from Michel Marcus, Dec 15 2018

A145825 a(n) is in A145818 such that (4n-1-a(n))/2 is in A145818 as well.

Original entry on oeis.org

1, 5, 1, 5, 17, 21, 17, 21, 1, 5, 1, 5, 17, 21, 17, 21, 65, 69, 65, 69, 81, 85, 81, 85, 65, 69, 65, 69
Offset: 1

Views

Author

Vladimir Shevelev, Oct 20 2008

Keywords

Comments

Note that a(4n)=a(4n-2), a(4n-1)=a(4n-3).

Crossrefs

A145812 Odd positive integers a(n) such that for every odd integer m > 1 there exists a unique representation of m as a sum of the form a(l) + 2a(s).

Original entry on oeis.org

1, 3, 9, 11, 33, 35, 41, 43, 129, 131, 137, 139, 161, 163, 169, 171, 513, 515, 521, 523, 545, 547, 553, 555, 641, 643, 649, 651, 673, 675, 681, 683, 2049, 2051, 2057, 2059, 2081, 2083, 2089, 2091, 2177, 2179, 2185, 2187, 2209, 2211, 2217, 2219, 2561, 2563
Offset: 1

Views

Author

Vladimir Shevelev, Oct 20 2008

Keywords

Comments

Theorem. An odd number is in the sequence iff in its binary expansion all digits on k-th positions from the end, k=3, 5, 7, ..., are zeros. For example, 169, 171 have binary expansions 10101001, 10101011. Thus both of them are in the sequence. If A(x) is the counting function of a(n) <= x, then A(x) = O(sqrt(x)) and Omega(sqrt(x)).
Every positive odd integer m==3 (mod 2^(2r-1)) is a unique sum of the form a(2^(r-1)*(s-1)+1) + 2a(2^(r-1)*(t-1)+1), r=1,2,..., while the other odd integers are not expressible in such a form (see also the comment to A145818). Problem: Let B be the set of analytical functions f(x), f(0)=0, abs(x) > 1, with (0,1)-Taylor coefficients. Let F(x) be in B. It could be proved that the equation f(x)*f(x^2) = F(x) has no more than one solution in B. In case of F(x) = x^3/(1-x^(2^r)), r=1,2,..., it has one solution, which leads to A145812, A145818, A145849, A145850, etc. Find the conditions of the solvability of this equation in B and give, if it is possible, other examples. [Vladimir Shevelev, Oct 21 2008]
To get the decomposition of odd m as sum a(l) + 2a(s), write m-2 as Sum b_j 2^j, then a(l) = 1 + Sum_{j odd} b_j 2^j. This algorithm follows from our comment to A088442 and the algorithm of calculation of A088442(n). For example, if m=81, then we have 79 = 1*2^0 + 1*2^1 + 1*2^2 + 1*2^3 + 1*2^6. Thus a(l) = 1 + (1*2^1 + 1*2^3) = 11 and the required decomposition is 81 = 11 + 2*35, such that a(s)=35. We see that L=4, s=6, i.e., "index coordinates" of 81 are (4,6). Thus we have a one-to-one map of odd integers > 1 to the positive lattice points in the plane. [Vladimir Shevelev, Oct 24 2008]

Examples

			If n=13, we have n-1 = 12 = 2^3 + 2^2. Therefore a(13) = 1 + 2(4^3 + 4^2) = 161. If m=521 and thus 2(521-1) = 1040 = 2^10 + 2^4, then the equation a(x)=521 has the unique solution x = 2^4 + 2^1 + 1 = 19. [_Vladimir Shevelev_, Oct 25 2008]
		

Crossrefs

Cf. A000695.

Programs

  • Haskell
    a145812 n = a145812_list !! (n-1)
    a145812_list = filter f [1, 3 ..] where
       f v = v == 0 || even w && f w where w = v `div` 4
    -- Reinhard Zumkeller, Mar 13 2014
  • Maple
    filter:= proc(n) local L; L:= convert(n,base,2);
    andmap(i -> L[2*i+1]=0,[$1..(nops(L)-1)/2])
    end proc:
    select(filter, [seq(i,i=1..10000,2)]); # Robert Israel, Aug 20 2017
  • Mathematica
    a[1]=1; a[2]=3; a[n_] := a[n] = If[OddQ[n], 4*a[(n+1)/2]-3, 4*a[n/2]-1];
    Array[a, 50] (* Jean-François Alcover, Nov 14 2017, after Robert Israel *)
  • PARI
    isok(n) = {if (! (n % 2), return (0)); b = binary(n); forstep (i = #b, 1, -1, rpos = #b - i + 1; if ((rpos > 1) && (rpos % 2) && b[i], return (0));); return (1);} \\ Michel Marcus, Jan 19 2014
    

Formula

If f(x) = Sum_{n>=1} x^a(n), abs(x) < 1, then f(x)*f(x^2) = x^3/(1-x^2).
To get a(n), write n-1 as Sum b_j 2^j, then a(n) = 1 + 2Sum b_j 2^(2j). Conversely, if an odd number m==r(mod 4), r=1 or 3 has the form which is indicated in the theorem, i.e., 2m - 2r = Sum_{j>=1} b_j 2^(2j), b_j = 0 or 1, then the only solution of the equation a(x)=m is x = Sum_{j>=1} b_j 2^(j-1) + (r+1)/2. [Vladimir Shevelev, Oct 25 2008]
For n >= 2, a(n) = a(n-1) + (4^(t+1) + 2)/3, where t >= 0 is such that n-1 == 2^t (mod 2^(t+1)). [Vladimir Shevelev, Nov 04 2008]
a(n) = 2*A000695(n-1) + 1. [Vladimir Shevelev, Nov 07 2008]
From Robert Israel, Aug 20 2017: (Start)
a(2n-1) = 4*a(n)-3.
a(2n) = 4*a(n)-1.
G.f. g(z) satisfies g(z) = (4 + 4/z) g(z^2) - (z^2 + 3 z)/(1-z^2). (End)

Extensions

Extended beyond a(16) by Klaus Brockhaus, Oct 22 2008

A146085 Positive integers a(n) such that for every integer m == 1 (mod 3), m >= 4, there exists a unique representation of m as a sum of the form a(l) + 3*a(s).

Original entry on oeis.org

1, 4, 7, 28, 31, 34, 55, 58, 61, 244, 247, 250, 271, 274, 277, 298, 301, 304, 487, 490, 493, 514, 517, 520, 541, 544, 547, 2188, 2191, 2194, 2215, 2218, 2221, 2242, 2245, 2248, 2431, 2434, 2437, 2458, 2461, 2464, 2485, 2488, 2491, 2674, 2677, 2680, 2701, 2704, 2707, 2728, 2731, 2734
Offset: 1

Views

Author

Vladimir Shevelev, Oct 27 2008

Keywords

Comments

Theorem. An integer is in the sequence iff in its expansion on base 3 all digits at the k-th position from the end, k=3, 5, 7, ..., are zeros while the first digit from the end is 1. To get the decomposition of m==1(mod 3) as sum a(l)+3a(s), write m-3 as Sum b_j 3^j, then a(l) = 1 + Sum_{j odd} b_j 3^j.

Examples

			If m=46, then we have 46=1*3^0+2*3^2+1*3^3, thus a(l)=1+1*3^3=28 and the required decomposition is: 46=28+3*4, such that a(s)=4. We see that l=4, s=2, i.e. "index coordinates" of 46 are (4, 2). Thus we have a one-to-one map of integers m==1(mod 3), m>=4, to the positive lattice points on the plane.
		

Crossrefs

Programs

  • PARI
    isok(n) = {my(d=Vecrev(digits(n, 3)), k=3); while (k <= #d, if (d[k], return (0)); k += 2;); d[1] == 1;} \\ Michel Marcus, Dec 09 2018

Extensions

More terms from Michel Marcus, Dec 09 2018

A146087 a(n) = 3*A146085(n) - 1.

Original entry on oeis.org

2, 11, 20, 83, 92, 101, 164, 173, 182, 731, 740, 749, 812, 821, 830, 893, 902, 911, 1460, 1469, 1478, 1541, 1550, 1559, 1622, 1631, 1640, 6563, 6572, 6581, 6644, 6653, 6662, 6725, 6734, 6743, 7292, 7301, 7310, 7373, 7382, 7391, 7454, 7463, 7472, 8021, 8030, 8039, 8102, 8111, 8120
Offset: 1

Views

Author

Vladimir Shevelev, Oct 27 2008

Keywords

Comments

Positive integers such that for every integer m==8 (mod 9) there exists a unique representation of m as a sum of the form a(l)+3a(s).

Crossrefs

Programs

  • Mathematica
    fQ[n_] := Module[{d = Reverse[IntegerDigits[n, 3]], k = 3, ans = True}, While[k <= Length[d], If[d[[k]] > 0, ans = False]; k += 2]; ans && d[[1]] == 1]; aQ[n_] := Mod[n + 1, 3] == 0 && fQ[(n + 1)/3]; Select[Range[10000], aQ] (* Amiram Eldar, Dec 09 2018 *)
  • PARI
    isa(n) = {my(d=Vecrev(digits(n, 3)), k=3); while (k <= #d, if (d[k], return (0)); k += 2;); d[1] == 1;} \\ A146085
    isok(n) = !((n+1) % 3) && isa((n+1)/3); \\ Michel Marcus, Dec 09 2018

Extensions

More terms from Michel Marcus, Dec 09 2018

A145866 Number of representations of 2n as a sum of two terms of A145819.

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 3, 1, 2, 1, 1, 1, 2, 2, 3, 1, 3, 4, 3, 1, 2, 3, 2, 1, 1, 1, 1, 1, 2, 2, 3, 1, 3, 3, 2, 1, 3, 2, 5, 1, 3, 1, 1, 1, 2, 1
Offset: 1

Views

Author

Vladimir Shevelev, Oct 22 2008

Keywords

Crossrefs

A145869 a(n) is the least even positive integer which is not expressible as a sum A145819(s)+A145819(t), if both of s,t differ from n.

Original entry on oeis.org

2, 2, 4, 8, 30, 16, 28, 24, 114, 40, 58, 48, 100, 72, 92, 88
Offset: 1

Views

Author

Vladimir Shevelev, Oct 22 2008

Keywords

Crossrefs

A146091 a(n) = 3*A146085(n) - 2.

Original entry on oeis.org

1, 10, 19, 82, 91, 100, 163, 172, 181, 730, 739, 748, 811, 820, 829, 892, 901, 910, 1459, 1468, 1477, 1540, 1549, 1558, 1621, 1630, 1639, 6562, 6571, 6580, 6643, 6652, 6661, 6724, 6733, 6742, 7291, 7300, 7309, 7372, 7381, 7390, 7453, 7462, 7471, 8020, 8029, 8038, 8101, 8110, 8119
Offset: 1

Views

Author

Vladimir Shevelev, Oct 27 2008

Keywords

Comments

Positive integers such that for every integer m==4 (mod 9) there exists a unique representation of m as a sum of the form a(l)+3a(s).

Crossrefs

Programs

  • PARI
    isa(n) = {my(d=Vecrev(digits(n, 3)), k=3); while (k <= #d, if (d[k], return (0)); k += 2;); d[1] == 1;} \\ A146085
    isok(n) = !((n+2) % 3) && isa((n+2)/3); \\ Michel Marcus, Dec 09 2018

Extensions

More terms from Michel Marcus, Dec 09 2018

A147845 Odd positive integers a(n) such that for every odd integer m>=7 there exists a unique representation of the form m=a(p)+2a(q)+4a(r).

Original entry on oeis.org

1, 3, 17, 19, 129, 131, 145, 147, 1025, 1027, 1041, 1043, 1153, 1155, 1169, 1171, 8193, 8195, 8209, 8211, 8321, 8323, 8337, 8339, 9217, 9219, 9233, 9235, 9345, 9347, 9361, 9363, 65537, 65539, 65553, 65555
Offset: 1

Views

Author

Vladimir Shevelev, Nov 15 2008

Keywords

Comments

Since, e.g., 27=17+2*3+4*1 and 17=a(3),3=a(2),1=a(1), then 27 has "coordinates" (3,2,1). Thus we have a one-to-one map of odd integers >=7 to the positive lattice points in the three-dimensional space.

Crossrefs

Formula

a(n)=2A033045(n-1)+1
Showing 1-10 of 10 results.