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

A026601 Numbers k such that A026600(k) = 1.

Original entry on oeis.org

1, 6, 8, 12, 14, 16, 20, 22, 27, 30, 32, 34, 38, 40, 45, 46, 51, 53, 56, 58, 63, 64, 69, 71, 75, 77, 79, 84, 86, 88, 92, 94, 99, 100, 105, 107, 110, 112, 117, 118, 123, 125, 129, 131, 133, 136, 141, 143, 147, 149, 151, 155, 157, 162
Offset: 1

Views

Author

Keywords

Comments

It appears that a(n) gives the position of its own n-th 1 modulo 3 term, the n-th 2 modulo 3 term in A026602, and the n-th multiple of 3 in A026603. A026602 and A026603 appear to have analogous indexical properties. - Matthew Vandermast, Oct 06 2010
This follows directly from the generating morphism for A026600: a 1 in position k creates a 1 in position 3k-2, a 2 in position 3k-1, and a 3 in position 3k. Since each block of three terms in A026600 is a permutation of {1,2,3}, these created terms are the k-th terms of their respective index sequences. The proof for the other index sequences is similar. - Charlie Neder, Mar 10 2019

Crossrefs

Formula

a(n) = A079498(n) + 1.

A198680 Multiples of 3 whose sum of base-3 digits are also multiples of 3.

Original entry on oeis.org

0, 15, 21, 33, 39, 45, 57, 63, 78, 87, 93, 99, 111, 117, 132, 135, 150, 156, 165, 171, 186, 189, 204, 210, 222, 228, 234, 249, 255, 261, 273, 279, 294, 297, 312, 318, 327, 333, 348, 351, 366, 372, 384, 390, 396, 405, 420, 426, 438, 444, 450, 462, 468, 483, 489, 495
Offset: 1

Views

Author

John W. Layman, Oct 28 2011

Keywords

Comments

It appears that Sum[k^j, 0<=k<=2^n-1, k in A198680] = Sum[k^j, 0<=k<=2^n-1, k in A198681] = Sum[k^j, 0<=k<=2^n-1, k in A180682], for 0<=j<=n-1, which has been verified numerically in a number of cases. This is a generalization of Prouhet's Theorem (see the reference). To illustrate for j=3, we have Sum[k^3, 0<=k<=2^n-1, k in A198680] = {0, 0, 12636, 1108809, 94478400, 7780827681, 633724260624, 51425722195929, 4168024588857600,...}, Sum[k^3, 0<=k<=2^n-1, k in A198681] = {0, 27, 14580, 1095687, 94478400, 7780827681, 633724260624, 51425722195929, 4168024588857600,..., Sum[k^3, 0<=k<=2^n-1, k in A198682] = {0, 216, 7776, 1121931, 94478400, 7780827681, 633724260624, 51425722195929, 4168024588857600,...}, and it is seen that all three sums agree for n>=4=j+1.

Crossrefs

Programs

  • Mathematica
    Select[3*Range[0,200],Divisible[Total[IntegerDigits[#,3]],3]&] (* Harvey P. Dale, May 31 2014 *)

Formula

a(n) = 3*A079498(n). - Charles R Greathouse IV, Nov 02 2011

Extensions

Offset corrected by Amiram Eldar, Jan 05 2020

A378624 Numbers whose binary representation interpreted as being base-3 is divisible by 5.

Original entry on oeis.org

0, 5, 10, 15, 19, 20, 30, 38, 40, 45, 49, 59, 60, 65, 75, 76, 80, 85, 90, 95, 98, 103, 105, 118, 120, 125, 130, 135, 137, 150, 152, 157, 160, 165, 170, 175, 179, 180, 190, 195, 196, 206, 210, 215, 217, 225, 235, 236, 240, 245, 250, 255, 259, 260, 270, 274, 279, 281, 289, 299
Offset: 1

Views

Author

Kyle David Krueger, Dec 02 2024

Keywords

Comments

This sequence is infinite. Given any arbitrarily large number, the last 4 binary bits can be set to 0, and, if this number does not already meet the criteria, one of the last 4 bits can be increased to 1 such that it does.

Examples

			19 is a term: 19 = 10011_2 -> 10011_3 = 85 = 17 * 5.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[0, 300], Divisible[FromDigits[IntegerDigits[#, 2], 3], 5] &] (* Paolo Xausa, Dec 22 2024 *)
  • PARI
    is(n) = fromdigits(binary(n),3)%5 == 0 \\ David A. Corneth, Dec 02 2024
Showing 1-3 of 3 results.