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.

Previous Showing 21-25 of 25 results.

A245191 Successive states of one-sided one-dimensional cellular automaton using Rule 90, starting with a single ON cell, converted to decimal.

Original entry on oeis.org

1, 2, 5, 8, 20, 34, 85, 128, 320, 544, 1360, 2056, 5140, 8738, 21845, 32768, 81920, 139264, 348160, 526336, 1315840, 2236928, 5592320, 8388736, 20971840, 35652128, 89130320, 134744072, 336860180, 572662306, 1431655765, 2147483648, 5368709120, 9126805504
Offset: 0

Views

Author

N. J. A. Sloane, Jul 21 2014

Keywords

Comments

The cells are labeled 0,1,2,3,4,5,6,... and we start at time 0 with cell 0 equal to 1, the rest 0.
At each step, the state of a cell is the mod 2 sum of the states of its left and right neighbors at the previous step (subject to the constraint that we only consider cells with nonnegative labels).
a(n) gives the state of the system, read from right to left, converted from binary to decimal.
This is a one-sided version of A038183.

Examples

			Successive states are:
1
01
101
0001
00101
010001
1010101
00000001
000000101
0000010001
...
which when converted from binary to decimal give the sequence.
This is the right-hand portion of the triangle in A038183.
		

Crossrefs

Programs

  • C
    #include 
    int main()
    {
            int u = 1, i = 1, n = 20;
            while (i++ <= n)
            {
                    printf("%d, ", u);
                    u = (u >> 1) ^ (u << 1);
            }
    } /* Luc Rousseau, Jun 05 2018 */
  • Mathematica
    a[ n_] := Sum[ Mod[Binomial[2 n + 2, n + i + 2], 2] 2^i, {i, Mod[n, 2], n}]; (* Michael Somos, Jun 30 2018 *)

Formula

a(n) = Sum_{i>=0, i==n mod 2} (binomial(2n+2,n+2+i) mod 2)*2^i.
Write n = 2^k-1+j (k>=0, 0<=j<2^k). Then a(n) = 2^(k-j+1)*A038183(j).

Extensions

Corrected a(11) and more terms from Lars Blomberg, Aug 08 2015

A276044 Least k such that phi(k) has exactly n divisors.

Original entry on oeis.org

1, 3, 5, 7, 17, 13, 85, 31, 37, 65, 1285, 61, 4369, 193, 185, 143, 65537, 181, 327685, 241, 577, 3281, 5570645, 403, 1297, 12289, 1057, 1037, 286331153, 779, 1431655765, 899, 9509, 197633, 5629, 1333, 137438953472, 786433, 42653, 1763, 2199023255552, 2993, 8796093022208, 15361, 3737, 12648641
Offset: 1

Views

Author

Altug Alkan, Aug 17 2016

Keywords

Comments

Least k such that A000005(A000010(k)) = n.
From Jon E. Schoenfield, Nov 13 2016: (Start)
For every n > 0, phi(2^n) = 2^(n-1) has exactly n divisors, so a(n) <= 2^n.
For every prime p, since phi(a(p)) has exactly p divisors, phi(a(p)) must be of the form q^(p-1), where q is a prime number. If q >= 3, we would have phi(a(p)) >= 3^(p-1), and since k > phi(k) for every k > 1, we would have a(p) >= 3^(p-1)+1, which would be contradicted by the upper bound a(p) <= 2^p (see above) unless 3^(p-1)+1 <= 2^p, which is true only for p = 2. Thus, for every prime p > 2, phi(a(p)) = 2^(p-1), so a(p) > 2^(p-1). In summary, we can state that, for every prime p > 2:
(1) a(p) is the least k such that phi(k) = 2^(p-1), and
(2) 2^(p-1) < a(p) <= 2^p.
After a(36)=1333, the next few known terms are a(38)=786433, a(39)=42653, a(40)=1763, and a(42)=2993; as shown above, known bounds on a(37) and a(41) are 2^36 < a(37) <= 2^37 and 2^40 < a(41) <= 2^41.
For prime p < 37, a(p) = A001317(p-1).
Observation: for prime p < 37, a(p) is the product of distinct Fermat primes 2^(2^j)+1 for j=0..4, i.e., 3, 5, 17, 257, and 65537 (see A019434), according to the locations of the 1-bits in p-1:
. p-1 in
p a(p) prime factorization of a(p) binary
== ========== =========================== ======
2 3 = 3 1
3 5 = 5 10
5 17 = 17 100
7 85 = 17 * 5 110
11 1285 = 257 * 5 1010
13 4369 = 257 * 17 1100
17 65537 = 65537 10000
19 327685 = 65537 * 5 10010
23 5570645 = 65537 * 17 * 5 10110
29 286331153 = 65537 * 257 * 17 11100
31 1431655765 = 65537 * 257 * 17 * 5 11110
.
This pattern does not continue to p=37, since 2^(2^5)+1 is not prime. (See also A038183 and the observation there from Arkadiusz Wesolowski.) (End)
As noted, for every prime p, phi(a(p))=2^(p-1), decompose a(p) = p_1^(e_1) *...* p_m^(e_m), then phi(a(p)) = p_1^(e_1-1)*(p_1 - 1) * ... * p_m^(e_m-1)*(p_m - 1). Thus a(p) is of the form 2^e * F_(a_1) *...* F_(a_l), where F_(a_i) = 2^(a_i) + 1 denote distinct Fermat primes. If e = 0, a_1 + ... + a_l = p - 1, while if e > 0, e + a_1 + ... + a_l = p. It can be deduced that a(p) = 2^p unless p-1 can be written as a_1 + ... a_l where 2^(a_i) + 1 are distinct Fermat primes. The only Fermat primes known have a_i in {1,2,4,8,16} and it is known that 2^a + 1 is composite for 16 < a < 2^33 (cf. A019434). It follows from the fact that 1 + 2 + 4 + 8 + 16 = 31 that a(p) = 2^p for primes p with 32 < p <= 2^33. - Pjotr Buys, Sep 18 2019

Examples

			a(5) = 17 because phi(17) = 16 has 5 positive divisors.
		

Crossrefs

Programs

  • Mathematica
    Table[k = 1; While[DivisorSigma[0, #] &@ EulerPhi@ k != n, k++]; k, {n, 28}] (* Michael De Vlieger, Aug 21 2016 *)
  • PARI
    a(n) = {my(k = 1); while(numdiv(eulerphi(k)) != n, k++); k; }

Formula

a(p) = 2^p for primes p with 32 < p <= 2^33. - Pjotr Buys, Sep 18 2019

Extensions

a(31)-a(36) from Michel Marcus and Jon E. Schoenfield, Nov 13 2016
a(37)-a(46) from Pjotr Buys, Sep 18 2019

A048709 Main diagonal of Family 1 "Rule 90 x Rule 150" array.

Original entry on oeis.org

1, 27, 325, 7607, 69649, 1749419, 22103317, 476952263, 4311744769, 116417108763, 1392727114821, 32619053820599, 300171238899985, 7506480532757163, 94597931458646037, 2049660569696039367
Offset: 0

Views

Author

Antti Karttunen, Mar 09 1999

Keywords

Comments

The successive generations of one-dimensional cellular automata rule (k=1,r=2) 1721342310 (hex 66999966) starting from the seed pattern 1.

Crossrefs

A038183, A038184 give the first row and column of Family 1. Cf. A048705.

A182556 a(0)=1, a(n+1) = (a(n)*6) XOR a(n).

Original entry on oeis.org

1, 7, 45, 291, 2033, 10327, 55901, 377971, 2580161, 13329991, 68092909, 475337827, 3047910961, 21335374615, 108342024605, 611555770419, 4227169747201, 22855656310535, 114836769975597, 592467546841635, 4147130288467697, 24449879086004055, 171122765320764253
Offset: 0

Views

Author

Alex Ratushnyak, May 05 2012

Keywords

Crossrefs

Cf. A001317: a(n+1) = (a(n)*2) XOR a(n).
Cf. A038183: a(n+1) = (a(n)*4) XOR a(n).
Cf. A100311: a(n+1) = (a(n)*8) XOR a(n).

Programs

  • Mathematica
    NestList[BitXor[6#,#]&,1,30] (* Harvey P. Dale, Nov 23 2012 *)
  • Python
    a=1
    for n in range(55):
        print(a, end=', ')
        a ^= a*6

Formula

a(0)=1, a(n+1) = (a(n)*6) XOR a(n), where XOR is the bitwise exclusive-or operator.

A203601 a(0)=1, a(n+1) = (a(n)*7) XOR a(n).

Original entry on oeis.org

1, 6, 44, 280, 1712, 10336, 78528, 610688, 4745984, 28476928, 173222912, 1108678656, 6652604416, 48774012928, 292681859072, 1757200613376, 11780162781184, 70685271916544, 424730711293952, 3116299774853120, 19823698692276224, 120070359807426560, 720738827865423872
Offset: 0

Views

Author

Alex Ratushnyak, May 06 2012

Keywords

Comments

A007814(a(n))=n. - Robert Israel, Mar 22 2020

Crossrefs

Cf. A001317: a(n+1) = (a(n)*2) XOR a(n).
Cf. A038183: a(n+1) = (a(n)*4) XOR a(n).
Cf. A182556: a(n+1) = (a(n)*6) XOR a(n).
Cf. A100311: a(n+1) = (a(n)*8) XOR a(n).
Cf. A007814.

Programs

  • Maple
    a[0]:= 1:
    for i from 1 to 50 do a[i]:= Bits:-Xor(a[i-1],a[i-1]*7) od:
    seq(a[i],i=0..50); # Robert Israel, Mar 22 2020
  • Python
    a=1
    for n in range(55):
        print(a, end=',')
        a ^= a*7

Formula

a(0)=1, a(n+1) = (a(n)*7) XOR a(n), where XOR is the bitwise exclusive-or operator.
Previous Showing 21-25 of 25 results.