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

A115872 Square array where row n gives all solutions k > 0 to the cross-domain congruence n*k = A048720(A065621(n),k), zero sequence (A000004) if no such solutions exist.

Original entry on oeis.org

1, 2, 1, 3, 2, 3, 4, 3, 6, 1, 5, 4, 7, 2, 7, 6, 5, 12, 3, 14, 3, 7, 6, 14, 4, 15, 6, 7, 8, 7, 15, 5, 28, 7, 14, 1, 9, 8, 24, 6, 30, 12, 15, 2, 15, 10, 9, 28, 7, 31, 14, 28, 3, 30, 7, 11, 10, 30, 8, 56, 15, 30, 4, 31, 14, 3, 12, 11, 31, 9, 60, 24, 31, 5, 60, 15, 6, 3, 13, 12, 48, 10, 62, 28, 56, 6, 62, 28, 12, 6, 5, 14, 13, 51, 11, 63, 30, 60, 7, 63, 30, 15, 7, 10, 7
Offset: 1

Views

Author

Antti Karttunen, Feb 07 2006

Keywords

Comments

Here * stands for ordinary multiplication and X means carryless (GF(2)[X]) multiplication (A048720).
Square array is read by descending antidiagonals, as A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.
Rows at positions 2^k are 1, 2, 3, ..., (A000027). Row 2n is equal to row n.
Numbers on each row give a subset of positions of zeros at the corresponding row of A284270. - Antti Karttunen, May 08 2019

Examples

			Fifteen initial terms of rows 1 - 19 are listed below:
   1:  1,  2,  3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15, ...
   2:  1,  2,  3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15, ...
   3:  3,  6,  7,  12,  14,  15,  24,  28,  30,  31,  48,  51,  56,  60,  62, ...
   4:  1,  2,  3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15, ...
   5:  7, 14, 15,  28,  30,  31,  56,  60,  62,  63, 112, 120, 124, 126, 127, ...
   6:  3,  6,  7,  12,  14,  15,  24,  28,  30,  31,  48,  51,  56,  60,  62, ...
   7:  7, 14, 15,  28,  30,  31,  56,  60,  62,  63, 112, 120, 124, 126, 127, ...
   8:  1,  2,  3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15, ...
   9: 15, 30, 31,  60,  62,  63, 120, 124, 126, 127, 240, 248, 252, 254, 255, ...
  10:  7, 14, 15,  28,  30,  31,  56,  60,  62,  63, 112, 120, 124, 126, 127, ...
  11:  3,  6, 12,  15,  24,  27,  30,  31,  48,  51,  54,  60,  62,  63,  96, ...
  12:  3,  6,  7,  12,  14,  15,  24,  28,  30,  31,  48,  51,  56,  60,  62, ...
  13:  5, 10, 15,  20,  21,  30,  31,  40,  42,  45,  47,  60,  61,  62,  63, ...
  14:  7, 14, 15,  28,  30,  31,  56,  60,  62,  63, 112, 120, 124, 126, 127, ...
  15: 15, 30, 31,  60,  62,  63, 120, 124, 126, 127, 240, 248, 252, 254, 255, ...
  16:  1,  2,  3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15, ...
  17: 31, 62, 63, 124, 126, 127, 248, 252, 254, 255, 496, 504, 508, 510, 511, ...
  18: 15, 30, 31,  60,  62,  63, 120, 124, 126, 127, 240, 248, 252, 254, 255, ...
  19:  7, 14, 28,  31,  56,  62,  63, 112, 119, 124, 126, 127, 224, 238, 248, ...
		

Crossrefs

Transpose: A114388. First column: A115873.
Cf. also arrays A277320, A277810, A277820, A284270.
A few odd-positioned rows: row 1: A000027, Row 3: A048717, Row 5: A115770 (? Checked for all values less than 2^20), Row 7: A115770, Row 9: A115801, Row 11: A115803, Row 13: A115772, Row 15: A115801 (? Checked for all values less than 2^20), Row 17: A115809, Row 19: A115874, Row 49: A114384, Row 57: A114386.

Programs

  • Mathematica
    X[a_, b_] := Module[{A, B, C, x},
         A = Reverse@IntegerDigits[a, 2];
         B = Reverse@IntegerDigits[b, 2];
         C = Expand[
            Sum[A[[i]]*x^(i-1), {i, 1, Length[A]}]*
            Sum[B[[i]]*x^(i-1), {i, 1, Length[B]}]];
         PolynomialMod[C, 2] /. x -> 2];
    T[n_, k_] := Module[{x = BitXor[n-1, 2n-1], k0 = k},
         For[i = 1, True, i++, If[n*i == X[x, i],
         If[k0 == 1, Return[i], k0--]]]];
    Table[T[n-k+1, k], {n, 1, 14}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Jan 04 2022 *)
  • PARI
    up_to = 120;
    A048720(b,c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
    A065621(n) = bitxor(n-1,n+n-1);
    A115872sq(n, k) = { my(x = A065621(n)); for(i=1,oo,if((n*i)==A048720(x,i),if(1==k,return(i),k--))); };
    A115872list(up_to) = { my(v = vector(up_to), i=0); for(a=1,oo, for(col=1,a, i++; if(i > up_to, return(v)); v[i] = A115872sq(col,(a-(col-1))))); (v); };
    v115872 = A115872list(up_to);
    A115872(n) = v115872[n]; \\ (Slow) - Antti Karttunen, May 08 2019

Extensions

Example section added and the data section extended up to n=105 by Antti Karttunen, May 08 2019

A277320 Square array A(r,c) = A048720(A065621(r), c), read by descending antidiagonals as A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

Original entry on oeis.org

1, 2, 2, 3, 4, 7, 4, 6, 14, 4, 5, 8, 9, 8, 13, 6, 10, 28, 12, 26, 14, 7, 12, 27, 16, 23, 28, 11, 8, 14, 18, 20, 52, 18, 22, 8, 9, 16, 21, 24, 57, 56, 29, 16, 25, 10, 18, 56, 28, 46, 54, 44, 24, 50, 26, 11, 20, 63, 32, 35, 36, 39, 32, 43, 52, 31, 12, 22, 54, 36, 104, 42, 58, 40, 100, 46, 62, 28, 13, 24, 49, 40, 101, 112, 49, 48, 125, 104, 33, 56, 21
Offset: 1

Views

Author

Antti Karttunen, Nov 01 2016

Keywords

Examples

			The top left corner of the array:
   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12
   2,   4,   6,   8,  10,  12,  14,  16,  18,  20,  22,  24
   7,  14,   9,  28,  27,  18,  21,  56,  63,  54,  49,  36
   4,   8,  12,  16,  20,  24,  28,  32,  36,  40,  44,  48
  13,  26,  23,  52,  57,  46,  35, 104, 101, 114, 127,  92
  14,  28,  18,  56,  54,  36,  42, 112, 126, 108,  98,  72
  11,  22,  29,  44,  39,  58,  49,  88,  83,  78,  69, 116
   8,  16,  24,  32,  40,  48,  56,  64,  72,  80,  88,  96
  25,  50,  43, 100, 125,  86,  79, 200, 209, 250, 227, 172
  26,  52,  46, 104, 114,  92,  70, 208, 202, 228, 254, 184
  31,  62,  33, 124,  99,  66,  93, 248, 231, 198, 217, 132
  28,  56,  36, 112, 108,  72,  84, 224, 252, 216, 196, 144
  21,  42,  63,  84,  65, 126, 107, 168, 189, 130, 151, 252
  22,  44,  58,  88,  78, 116,  98, 176, 166, 156, 138, 232
  19,  38,  53,  76,  95, 106, 121, 152, 139, 190, 173, 212
  16,  32,  48,  64,  80,  96, 112, 128, 144, 160, 176, 192
  49,  98,  83, 196, 245, 166, 151, 392, 441, 490, 475, 332
  50, 100,  86, 200, 250, 172, 158, 400, 418, 500, 454, 344
  55, 110,  89, 220, 235, 178, 133, 440, 399, 470, 481, 356
		

Crossrefs

Transpose: A277199.
Main diagonal: A277699.
Row 1: A000027, Row 3: A048727.
Column 1: A065621, Column 3: A277823, Column 5: A277825.
Cf. A277820 (array obtained by selecting only the columns with an index A001317(k), k=0..).

Programs

Formula

A(r,c) = A048720(A065621(r), c).

A277699 Main diagonal of A277320: a(n) = A048720(n, A065621(n)).

Original entry on oeis.org

1, 4, 9, 16, 57, 36, 49, 64, 209, 228, 217, 144, 233, 196, 225, 256, 801, 836, 809, 912, 793, 868, 785, 576, 1009, 932, 1017, 784, 969, 900, 961, 1024, 3137, 3204, 3145, 3344, 3193, 3236, 3185, 3648, 3217, 3172, 3225, 3472, 3241, 3140, 3233, 2304, 3937, 4036, 3945, 3728, 3929, 4068, 3921
Offset: 1

Views

Author

Antti Karttunen, Nov 01 2016

Keywords

Crossrefs

Cf. A277704, A277706 (the positions of squares/nonsquares in this sequence).
Cf. A277805 (nonsquares in the order of appearance).

Programs

Formula

a(n) = A277320(n,n) = A048720(n, A065621(n)).
For n > 1, a(A023758(n)) = A000290(A023758(n)).

A325567 a(1) = 1; for n > 1, a(n) is the largest proper divisor d of n such that A048720(A065621(d),n/d) is equal to n.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 4, 3, 2, 1, 4, 1, 2, 1, 8, 1, 6, 1, 4, 3, 2, 1, 8, 1, 2, 1, 4, 1, 2, 1, 16, 11, 2, 5, 12, 1, 2, 1, 8, 1, 6, 1, 4, 3, 2, 1, 16, 7, 2, 1, 4, 1, 2, 1, 8, 1, 2, 1, 4, 1, 2, 1, 32, 13, 22, 1, 4, 1, 10, 1, 24, 1, 2, 5, 4, 1, 2, 1, 16, 1, 2, 1, 12, 1, 2, 1, 8, 1, 6, 1, 4, 3, 2, 1, 32, 1, 14, 1, 4, 1, 2, 1, 8, 7
Offset: 1

Views

Author

Antti Karttunen, May 09 2019

Keywords

Crossrefs

Programs

  • PARI
    A048720(b,c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
    A065621(n) = bitxor(n-1,n+n-1);
    A325567(n) = if(1==n,n,fordiv(n,d,if((d>1)&&A048720(A065621(n/d),d)==n,return(n/d))));

A061858 Differences between the ordinary multiplication table A004247 and the carryless multiplication table for GF(2)[X] polynomials A048720, i.e., the effect of the carry bits in binary multiplication.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, 8, 0, 0, 0, 0, 0, 0, 12, 0, 8, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 16, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 24, 0, 0, 0
Offset: 0

Views

Author

Antti Karttunen, May 11 2001

Keywords

Examples

			From _Peter Munn_, Jan 28 2021: (Start)
The top left 12 X 12 corner of the table:
      |  0   1   2   3   4   5   6   7   8   9  10  11
------+------------------------------------------------
   0  |  0   0   0   0   0   0   0   0   0   0   0   0
   1  |  0   0   0   0   0   0   0   0   0   0   0   0
   2  |  0   0   0   0   0   0   0   0   0   0   0   0
   3  |  0   0   0   4   0   0   8  12   0   0   0   4
   4  |  0   0   0   0   0   0   0   0   0   0   0   0
   5  |  0   0   0   0   0   8   0   8   0   0  16  16
   6  |  0   0   0   8   0   0  16  24   0   0   0   8
   7  |  0   0   0  12   0   8  24  28   0   0  16  28
   8  |  0   0   0   0   0   0   0   0   0   0   0   0
   9  |  0   0   0   0   0   0   0   0   0  16   0  16
  10  |  0   0   0   0   0  16   0  16   0   0  32  32
  11  |  0   0   0   4   0  16   8  28   0  16  32  52
(End)
		

Crossrefs

"Zoomed in" variant: A061859.
Rows/columns 3, 5 and 7 are given by A048728, A048729, A048730.
Main diagonal divided by 4: A213673.
Numbers that generate no carries when multiplied in binary by 11_2: A003714, by 101_2: A048716, by 1001_2: A115845, by 10001_2: A115847, by 100001_2: A114086.
Other sequences related to the presence/absence of a carry in binary multiplication: A116361, A235034, A235040, A236378, A266195, A289726.

Formula

a(n) = A004247(n) - A048720(n).

A235034 Numbers whose prime divisors, when multiplied together without carry-bits (as encodings of GF(2)[X]-polynomials, with A048720), produce the original number; numbers for which A234741(n) = n.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 22, 23, 24, 26, 28, 29, 30, 31, 32, 34, 37, 38, 40, 41, 43, 44, 46, 47, 48, 51, 52, 53, 56, 58, 59, 60, 61, 62, 64, 67, 68, 71, 73, 74, 76, 79, 80, 82, 83, 85, 86, 88, 89, 92, 94, 95, 96, 97, 101
Offset: 1

Views

Author

Antti Karttunen, Jan 02 2014

Keywords

Comments

If n is present, then 2n is present also, as shifting binary representation left never produces any carries.

Examples

			All primes occur in this sequence as no multiplication -> no need to add any intermediate products -> no carry bits produced.
Composite numbers like 15 are also present, as 15 = 3*5, and when these factors (with binary representations '11' and '101') are multiplied as:
   101
  1010
  ----
  1111 = 15
we see that the intermediate products 1*5 and 2*5 can be added together without producing any carry-bits (as they have no 1-bits in the same columns/bit-positions), so A048720(3,5) = 3*5 and thus 15 is included in this sequence.
		

Crossrefs

Gives the positions of zeros in A236378, i.e., n such that A234741(n) = n.
Intersection with A235035 gives A235032.
Other subsequences: A000040 (A091206 and also A091209), A045544 (A004729), A093641, A235040 (gives odd composites in this sequence), A235050, A235490.

A325565 a(n) is the number of such divisors d of n that A048720(A065621(d),n/d) is equal to n.

Original entry on oeis.org

1, 2, 1, 3, 1, 2, 1, 4, 2, 2, 1, 3, 1, 2, 1, 5, 1, 4, 1, 3, 2, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 6, 2, 2, 2, 6, 1, 2, 1, 4, 1, 4, 1, 3, 2, 2, 1, 5, 2, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 7, 2, 4, 1, 3, 1, 4, 1, 8, 1, 2, 2, 3, 1, 2, 1, 5, 1, 2, 1, 6, 1, 2, 1, 4, 1, 4, 1, 3, 2, 2, 1, 6, 1, 4, 1, 3, 1, 2, 1, 4, 2
Offset: 1

Views

Author

Antti Karttunen, May 09 2019

Keywords

Comments

Equally, a(n) is number of such pairs of natural numbers t, u that A048720(t,u) = n and A065620(t)*u = n.

Crossrefs

Programs

  • PARI
    A048720(b,c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
    A065621(n) = bitxor(n-1,n+n-1);
    A325565(n) = sumdiv(n,d,A048720(A065621(d),n/d)==n);
    
  • PARI
    A065620(n, c=1) = sum(i=0, logint(n+!n, 2), if(bittest(n, i), (-1)^c++<A065620
    A325565(n) = { my(p = Pol(binary(n))*Mod(1, 2)); sum(d=1,n,my(q = Pol(binary(d))*Mod(1, 2)); (0==(p%q) && (n==(A065620(d)*fromdigits(Vec(lift(p/q)),2))))); };

Formula

a(n) = Sum_{d|n} [A048720(A065621(d),n/d) == n], where [ ] is the Iverson bracket.
a(n) / a(A000265(n)) = A001511(n).
a(n) <= A000005(n) for all n.
a(n) <= A091220(n) for all n.

A379113 a(1) = 1; for n > 1, a(n) is the greatest proper unitary divisor d of n such that A048720(A065621(sigma(d)),sigma(n/d)) is equal to sigma(n).

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 1, 1, 5, 1, 3, 1, 7, 3, 1, 1, 1, 1, 5, 7, 11, 1, 3, 1, 2, 1, 7, 1, 15, 1, 1, 3, 1, 7, 1, 1, 1, 3, 5, 1, 21, 1, 11, 1, 23, 1, 3, 1, 2, 3, 13, 1, 1, 11, 7, 3, 2, 1, 15, 1, 31, 7, 1, 5, 33, 1, 1, 3, 35, 1, 9, 1, 1, 3, 19, 7, 6, 1, 5, 1, 1, 1, 21, 1, 43, 3, 11, 1, 1, 7, 23, 31, 47, 1, 3, 1, 1, 1, 4, 1
Offset: 1

Views

Author

Antti Karttunen, Dec 17 2024

Keywords

Crossrefs

Cf. A000203, A048720, A065621, A379114 (positions of terms > 1), A379119.
Cf. also A325567.

Programs

  • PARI
    A048720(b,c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
    A065621(n) = bitxor(n-1,n+n-1);
    A379113(n) = if(1==n,n,my(s=sigma(n)); fordiv(n,d,if((d>1) && 1==gcd(d,n/d) && A048720(A065621(sigma(n/d)),sigma(d))==s,return(n/d))));

Formula

a(n) = n/A379119(n).

A235040 After 1, composite odd numbers, whose prime divisors, when multiplied together without carry-bits (as codes for GF(2)[X]-polynomials, with A048720), yield the same number back.

Original entry on oeis.org

1, 15, 51, 85, 95, 111, 119, 123, 187, 219, 221, 255, 335, 365, 411, 447, 485, 511, 629, 655, 685, 697, 771, 831, 879, 959, 965, 1011, 1139, 1241, 1285, 1405, 1535, 1563, 1649, 1731, 1779, 1799, 1923, 1983, 2005, 2019, 2031, 2045, 2227, 2605, 2735, 2815, 2827
Offset: 0

Views

Author

Antti Karttunen, Jan 02 2014

Keywords

Comments

Note: Start indexing from n=1 if you want just composite numbers. a(0)=1 is the only nonprime, noncomposite in this list.
The first term with three prime divisors is a(11) = 255 = 3*5*17.
The next terms with three prime divisors are
255, 3855, 13107, 21845, 24415, 28527, 30583, 31215, 31611, 31695, 32691, 48059, 56283, 56797, 61935, 65365, 87805, 98005, ...
Of these 24415 (= 5*19*257) is the first one with at least one prime factor that is not a Fermat prime (A019434).
The first term with four prime divisors is a(427) = 65535 = 3*5*17*257.
The first terms which are not multiples of any Fermat prime are: 511, 959, 3647, 4039, 4847, 5371, 7141, 7231, 7679, 7913, 8071, 9179, 12179, ... (511 = 7*73, 959 = 7*137, ...)

Examples

			15 = 3*5. When these factors (with binary representations '11' and '101') are multiplied as:
   101
  1010
  ----
  1111 = 15
we see that the intermediate products 1*5 and 2*5 can be added together without producing any carry-bits (as they have no 1-bits in the same columns/bit-positions), so A048720(3,5) = 3*5 and thus 15 is included in this sequence.
		

Crossrefs

Odd nonprimes in A235034. A235039 is a subsequence.
The composite terms in A045544 (A004729) all occur also here.

A325566 a(n) is the largest divisor d of n such that A048720(A065621(d),n/d) = n.

Original entry on oeis.org

1, 2, 1, 4, 1, 2, 1, 8, 3, 2, 1, 4, 1, 2, 1, 16, 1, 6, 1, 4, 3, 2, 1, 8, 1, 2, 1, 4, 1, 2, 1, 32, 11, 2, 5, 12, 1, 2, 1, 8, 1, 6, 1, 4, 3, 2, 1, 16, 7, 2, 1, 4, 1, 2, 1, 8, 1, 2, 1, 4, 1, 2, 1, 64, 13, 22, 1, 4, 1, 10, 1, 24, 1, 2, 5, 4, 1, 2, 1, 16, 1, 2, 1, 12, 1, 2, 1, 8, 1, 6, 1, 4, 3, 2, 1, 32, 1, 14, 1, 4, 1, 2, 1, 8, 7
Offset: 1

Views

Author

Antti Karttunen, May 09 2019

Keywords

Crossrefs

Cf. A048720, A065621, A325565, A325567, A325570 (positions of ones).

Programs

  • PARI
    A048720(b,c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
    A065621(n) = bitxor(n-1,n+n-1);
    A325566(n) = fordiv(n,d,if(A048720(A065621(n/d),d)==n,return(n/d)));
Showing 1-10 of 168 results. Next