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 238 results. Next

A060372 p(n), positive part of n when n=p(n)-q(n) with p(n), q(n), p(n)+q(n) in A005836, integers written without 2 in base 3.

Original entry on oeis.org

0, 1, 3, 3, 4, 9, 9, 10, 9, 9, 10, 12, 12, 13, 27, 27, 28, 27, 27, 28, 30, 30, 31, 27, 27, 28, 27, 27, 28, 30, 30, 31, 36, 36, 37, 36, 36, 37, 39, 39, 40, 81, 81, 82, 81, 81, 82, 84, 84, 85, 81, 81, 82, 81, 81, 82, 84, 84, 85, 90, 90, 91, 90, 90, 91, 93, 93, 94, 81, 81, 82, 81
Offset: 0

Views

Author

Claude Lenormand (claude.lenormand(AT)free.fr), Apr 02 2001

Keywords

Comments

The graphs of p(n), q(n) are fractals; the graph of p(n)+q(n) is Sierpiński-like.

Examples

			Example: 14=27-13=3^3 -(3^0+3^1+3^2), 16=28-12=3^3+3^0 -(3^1+3^2), 20=30-10=3^3+3^1 -(3^0+3^2); 27+13=28+12=30+10=40; 10,12,13, 27, 28, 30 are written without 2 in base 3.
		

Crossrefs

Programs

A060373 q(n), negative part of n when n=p(n)-q(n) with p(n), q(n), p(n)+q(n) in A005836, integers written without 2 in base 3.

Original entry on oeis.org

0, 0, 1, 0, 0, 4, 3, 3, 1, 0, 0, 1, 0, 0, 13, 12, 12, 10, 9, 9, 10, 9, 9, 4, 3, 3, 1, 0, 0, 1, 0, 0, 4, 3, 3, 1, 0, 0, 1, 0, 0, 40, 39, 39, 37, 36, 36, 37, 36, 36, 31, 30, 30, 28, 27, 27, 28, 27, 27, 31, 30, 30, 28, 27, 27, 28, 27, 27, 13, 12, 12, 10, 9, 9, 10, 9, 9, 4, 3, 3, 1, 0, 0, 1, 0
Offset: 0

Views

Author

Claude Lenormand (claude.lenormand(AT)free.fr), Apr 02 2001

Keywords

Crossrefs

Programs

A265100 a(n) = 9*A005836(n) + 5, n >= 1.

Original entry on oeis.org

5, 14, 32, 41, 86, 95, 113, 122, 248, 257, 275, 284, 329, 338, 356, 365, 734, 743, 761, 770, 815, 824, 842, 851, 977, 986, 1004, 1013, 1058, 1067, 1085, 1094, 2192, 2201, 2219, 2228, 2273, 2282, 2300, 2309, 2435, 2444, 2462, 2471, 2516, 2525
Offset: 1

Views

Author

L. Edson Jeffery, Dec 01 2015

Keywords

Comments

Let C(m) denote the m-th Catalan number (A000108). Let == denote congruence and =!= its negation. Vladimir Reshetnikov asked (see link) how many n exist such that C(n) == 1 (mod 6). It was pointed out by Robert Israel that the only known n are in {1,3,31,255}. Since C(n) is odd if and only if n = 2^m - 1, for some m, Emmanuel Vantieghem (see links) stated the stronger conjecture that C(2^n-1) == 0 (mod 3), for all n>8. This is the motivation for the following.
If n is an integer such that the congruences C(n) == 0 (mod 3) and C(n-1) =!= 0 (mod 3) hold simultaneously, then we call n a "block number." A sequence {n, n+1, ..., n+k-1} of consecutive numbers is called a "block" (of order k), if C(n+i) == 0 (mod 3), for all i such that 0 <= i < k, and if C(n-1) =!= 0 (mod 3) (i.e., if n is a block number) and C(n+k) =!= 0 (mod 3).
If m is an integer such that the congruences C(m) =!= 0 (mod 3) and C(m-1) == 0 (mod 3) hold simultaneously, then we call m a "gap number." A sequence {m, m+1, ..., m+j-1} of consecutive numbers is called a "gap" (of order j), if C(m+i) =!= 0 (mod 3), for all i such that 0 <= i < j, and if C(m-1) == 0 (mod 3) (i.e., if m is a gap number) and C(m+j) == 0 (mod 3). (The sequence A265104 is conjectured to contain all possible gap numbers.) If C(n) == 0 (mod 3), then we say that n is "gap-avoiding."
It follows that if {n, n+1, ..., n+k-1} is a block with block number n, then n+k is a gap number, and if {m, m+1, ..., m+j-1} is a gap with gap number m, then m+j is a block number.
Conjecture 1: The sequence contains all possible block numbers.
Conjecture 2: If m is a block number, then 3*m - 1 is a block number.
Conjecture 3: If C(n) == 0 (mod 3), then C(3*n-1) == 0 (mod 3) or, what is the same thing, if n lies in a block, then 3*n - 1 lies in a block.
Conjecture 4: Assuming that A265104 contains all possible gap numbers, let B(n) denote the block with block number a(n), n >= 1, so that B(n) = {a(n), a(n)+1, ..., A265104(n)-1}. The (flattened) sequence {B(1), B(2), ...} of blocks contains all numbers m such that the base 3 representations of m and m+1 both contain at least one 2 and is identical to A111018.
Conjecture 5: C(n) == 0 (mod 3) if and only if the base 3 representations of n and n + 1 both contain at least one 2. [This conjecture has been proved by Robert Israel (see link for the proof)].
Theorem 1: The following statements are equivalent to Vantieghem's conjecture stated above: (i) For all m>8, 2^m-1 is gap-avoiding; (ii) C(2^n-1) == 0 (mod 3) if and only if the base 3 representations of 2^n - 1 and 2^n both contain at least one 2.
Proof: For (i), the statement obviously follows from the definitions, and (ii) follows from the proof of Conjecture 5.

Crossrefs

A000108 (Catalan numbers).

Programs

  • Mathematica
    a005836[1] := 0; a005836[n_] := If[OddQ[n], 3*a005836[Floor[(n + 1)/2]], a005836[n - 1] + 1]; a265100[n_] := 9*a005836[n] + 5; Table[a265100[n], {n, 46}]
    5 + 9 Join[{0}, Accumulate[Table[(3^IntegerExponent[n, 2] + 1)/2, {n, 57}]]] (* Vincenzo Librandi, Dec 03 2015 *)

Formula

Conjecture: a(n) = A265104(n) - A085296(n).

A060374 a(n)=p+q, where n=p-q and p, q, p+q are in A005836 (integers written without 2 in base 3).

Original entry on oeis.org

0, 1, 4, 3, 4, 13, 12, 13, 10, 9, 10, 13, 12, 13, 40, 39, 40, 37, 36, 37, 40, 39, 40, 31, 30, 31, 28, 27, 28, 31, 30, 31, 40, 39, 40, 37, 36, 37, 40, 39, 40, 121, 120, 121, 118, 117, 118, 121, 120, 121, 112, 111, 112, 109, 108, 109, 112, 111, 112, 121, 120, 121, 118
Offset: 0

Views

Author

Claude Lenormand (claude.lenormand(AT)free.fr), Apr 02 2001

Keywords

Crossrefs

Programs

  • Haskell
    a060374 n = f $ dropWhile (< n) a005836_list where
       f (p:ps) | a039966 (p-n) == 1 && a039966 (2*p-n) == 1 = 2*p - n
                | otherwise                                  = f ps
    -- Reinhard Zumkeller, Sep 29 2011

Extensions

Definition clarified by Zoran Sunic, Feb 16 2006

A089118 Nonnegative numbers in (3*A005836 - 1) [A005836 are the numbers with base representation containing no 2].

Original entry on oeis.org

2, 8, 11, 26, 29, 35, 38, 80, 83, 89, 92, 107, 110, 116, 119, 242, 245, 251, 254, 269, 272, 278, 281, 323, 326, 332, 335, 350, 353, 359, 362, 728, 731, 737, 740, 755, 758, 764, 767, 809, 812, 818, 821, 836, 839, 845, 848, 971, 974, 980, 983, 998, 1001, 1007, 1010
Offset: 1

Views

Author

Emeric Deutsch and Bruce E. Sagan, Dec 05 2003

Keywords

Comments

Numbers k such that the Motzkin number A001006(k) == 2 (mod 3).

Crossrefs

Programs

  • Mathematica
    (* m = MotzkinNumber *) m[0] = 1; m[n_] := m[n] = m[n - 1] + Sum[ m[k]*m[n - 2 - k], {k, 0, n - 2}]; Select[ Range[1010], Mod[m[#], 3] == 2 &] (* Jean-François Alcover, Jul 10 2013 *)
    Select[3*Range[350] - 1, DigitCount[# + 1, 3, 2] == 0 &] (* Amiram Eldar, Jun 04 2022 *)

Extensions

Offset corrected to 1 by Jean-François Alcover, Jun 23 2016

A089119 Complement of ((3*A005836) union (3*A005836 - 1) union (3*A005836 - 2)).

Original entry on oeis.org

4, 5, 6, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 31, 32, 33, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 85, 86, 87, 94, 95, 96, 97, 98, 99, 100, 101, 102
Offset: 1

Views

Author

Emeric Deutsch and Bruce E. Sagan, Dec 05 2003

Keywords

Comments

Numbers k such that the Motzkin number A001006(k) == 0 (mod 3).
The asymptotic density of this sequence is 1 (Burns, 2016). - Amiram Eldar, Jan 30 2021

Crossrefs

Programs

  • Mathematica
    (* m = MotzkinNumber *) m[0] = 1; m[n_] := m[n] = m[n - 1] + Sum[m[k]*m[n - 2 - k], {k, 0, n - 2}]; Select[Range[0, 120], Mod[m[#], 3] == 0 &] (* Jean-François Alcover, Jul 10 2013 *)

Extensions

Offset corrected by Amiram Eldar, Jan 30 2021

A374361 Irregular table T(n, k), n >= 0, 0 <= k < A120880(n), read by rows; the n-th row contains the terms t of A005836 such that n - t also belongs to A005836.

Original entry on oeis.org

0, 0, 1, 1, 0, 3, 0, 1, 3, 4, 1, 4, 3, 3, 4, 4, 0, 9, 0, 1, 9, 10, 1, 10, 0, 3, 9, 12, 0, 1, 3, 4, 9, 10, 12, 13, 1, 4, 10, 13, 3, 12, 3, 4, 12, 13, 4, 13, 9, 9, 10, 10, 9, 12, 9, 10, 12, 13, 10, 13, 12, 12, 13, 13, 0, 27, 0, 1, 27, 28, 1, 28, 0, 3, 27, 30, 0, 1, 3, 4, 27, 28, 30, 31
Offset: 0

Views

Author

Rémy Sigrist, Jul 06 2024

Keywords

Comments

In other words, we partition n into pairs of terms of A005836 and list the corresponding terms to get the n-th row.

Examples

			Triangle T(n, k) begins:
  n   n-th row
  --  -----------
   0  0
   1  0, 1
   2  1
   3  0, 3
   4  0, 1, 3, 4
   5  1, 4
   6  3
   7  3, 4
   8  4
   9  0, 9
  10  0, 1, 9, 10
  11  1, 10
  12  0, 3, 9, 12
		

Crossrefs

See A374354 for a similar sequence.

Programs

  • PARI
    row(n) = { my (r = [0], t = 1, d); while (n, d = n % 3; n \= 3; if (d==1, r = concat(r, [v + t | v <- r]), d==2, r = [v + t | v <- r]); t *= 3;); return (r); }

Formula

T(n, 0) = 0 iff n belongs to A005836.
T(n, k) + T(n, A120880(k)-1-k) = n.
T(n, 0) = A374362(n).
T(n, A120880(k)-1) = A374363(n).

A055247 Related to A055246 and A005836. Used for boundaries of open intervals which have to be erased in the Cantor middle third set construction.

Original entry on oeis.org

1, 2, 7, 8, 19, 20, 25, 26, 55, 56, 61, 62, 73, 74, 79, 80, 163, 164, 169, 170, 181, 182, 187, 188, 217, 218, 223, 224, 235, 236, 241, 242, 487, 488, 493, 494, 505, 506, 511, 512, 541, 542, 547, 548, 559, 560, 565, 566, 649, 650, 655, 656
Offset: 1

Views

Author

Wolfdieter Lang, May 23 2000

Keywords

Comments

At step number k >= 1 the 2^(k-1) open intervals which are erased from [0,1] in the Cantor middle third set construction are: I(k,n)=(a(2*n-1)/3^k,a(2*n)/3^k), n=1,.,2^(k-1).

Examples

			k=1: (1/3, 2/3); k=2: (1/9, 2/9), (7/9, 8/9); k=3: (1/27, 2/27), (7/27, 8/27), (19/27, 20/27), (25/27, 26/27); ...
		

Crossrefs

Formula

a(n)= A055246((n+1)/2) if n odd, a(n)= A055246(n/2)+1 if n even. A055246(n)= 1+6*A005836(n-1), n >= 1.
a(1) = 1, a(n) = 3^ceiling( log_2( n ) ) - a( 2^ceiling( log_2( n ) ) + 1 - n ). - Juan Jose Alba Gonzalez (jjalba(AT)gmail.com), May 16 2006

A170830 A121153 \ A005836.

Original entry on oeis.org

949, 1036, 2362, 2812, 2847, 3108, 7086, 8436, 8541, 9324, 21258, 25308, 25623, 27972, 28009, 63774, 63973, 66124, 75924, 76869, 83916, 84027, 84253, 191322, 191919, 198372, 227772, 230607, 235228, 251748, 252081, 252759, 253216, 573966, 575757
Offset: 1

Views

Author

N. J. A. Sloane, Feb 22 2010

Keywords

Comments

If n is in this sequence then so is 3n. - Charlie Neder, Feb 25 2019

Crossrefs

Cf. A170853, A005836, and the Cantor set sequence A121153.

Programs

  • PARI
    is1(n, R=divrem(3^logint(n, 3), n), S=0)={while(R[1]!=1&&!bittest(S, R[2]), S+=1<1, return(0)); n\=3); 1;}
    for(n = 1, 1000000, if(is1(n), if(is2(n),,print(n)))) \\ Charlie Neder, Feb 26 2019, from programs for A121153 and A005836

Extensions

Data corrected by Charlie Neder, Feb 25 2019

A170853 A005836 \ A121153.

Original entry on oeis.org

0, 31, 37, 85, 93, 94, 109, 111, 112, 118, 247, 253, 255, 256, 271, 274, 279, 280, 282, 283, 325, 327, 333, 334, 336, 337, 352, 354, 355, 361, 733, 739, 741, 742, 759, 760, 765, 766, 768, 769, 811, 813, 814, 822, 823, 837, 838, 840, 841, 846, 847, 849, 850, 973, 975, 976, 981, 982
Offset: 1

Views

Author

N. J. A. Sloane, Feb 22 2010

Keywords

Crossrefs

Cf. A170830, A005836 and the Cantor set sequence A121153.

Extensions

More terms from Hakan Icoz, Dec 25 2021
Showing 1-10 of 238 results. Next