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.

User: Peter Shor

Peter Shor's wiki page.

Peter Shor has authored 6 sequences.

A270780 Let p_i = the i-th prime. a(i) is the smallest n>1 such that p_i divides n!-1.

Original entry on oeis.org

3, 5, 9, 11, 5, 17, 4, 10, 15, 35, 39, 41, 45, 15, 18, 42, 48, 35, 17, 77, 41, 21, 43, 99, 96, 53, 22, 111, 125, 129, 120, 69, 25, 75, 155, 161, 83, 171, 177, 179, 189, 90, 195, 81, 105, 111, 82, 227, 101, 28, 239, 125, 255, 261, 267, 135, 236, 279, 141, 291
Offset: 3

Author

Peter Shor, Mar 22 2016

Keywords

Comments

Since p divides (p-2)!-1, the i-th term a(i) cannot be much larger than i log i.

Examples

			For i=3, the third prime is 5, and 5 divides 3!-1.
The 7th prime is 17, and 17 divides 5!-1, so a(7)=5.
		

Crossrefs

Programs

  • Maple
    a:= proc(n) local k, p; p:=ithprime(n);
          for k from 2 do if irem(k!, p)=1 then return k fi od
        end:
    seq(a(n), n=3..100);  # Alois P. Heinz, Mar 23 2016
  • Mathematica
    snpd[p_]:=Module[{n=2},While[!Divisible[n!-1,p],n++];n]; Table[snpd[p],{p,Prime[Range[3,70]]}] (* Harvey P. Dale, Jun 06 2017 *)

Extensions

More terms from Alois P. Heinz, Mar 23 2016

A226220 Maximum number of entries of the multiplication table mod p realizable additively, where p is the n-th prime.

Original entry on oeis.org

3, 6, 12, 19, 37, 47
Offset: 1

Author

Peter Shor, May 31 2013

Keywords

Comments

The maximum number of pairs i,j such that ij=f(i)+g(j) mod p, maximized over all functions f, g (mod p), for p=2,3,5,7,11... Lower bounds are known for the next five terms (starting with p=19): 66, 79, 99, 135, 148

Examples

			For the second term a(2)=6, p=3, and one can take f(0)=g(0)=f(1)=g(1)=0, f(2)=g(2)=2.
		

A151908 Number of nonisomorphic cube tilings of dimension n which can be constructed using the recipe presented at the beginning of Section 3 of the Lagarias-Shor paper.

Original entry on oeis.org

1, 2, 3, 7, 22, 95
Offset: 2

Author

Peter Shor, Jul 30 2009

Keywords

Comments

A weak lower bound for a(8) is 404.
It appears that there is exactly one trivial tiling in each dimension. If so, and this tiling is excluded, we get a sequence which potentially matches two existing sequences in the OEIS.

A064509 Marks (in fathoms) on lead line used by ships on the Mississippi River.

Original entry on oeis.org

2, 3, 5, 7, 10, 13, 15, 17, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 110, 115, 120, 125, 130, 135, 140, 145, 150, 155, 160, 165, 170, 175, 180, 185, 190, 195, 200, 205, 210, 215, 220, 225, 230, 235, 240, 245, 250, 255
Offset: 1

Author

Peter Shor, Oct 06 2001

Keywords

Comments

Certain depths have (or had) a visual and tactile indicator at positions on the lead line. All depths with such attachments are "marks". All others are "deeps." A leadsman measuring 12 feet of water calls "by the mark two (or twain)." If the depth on the lead is 36 feet (6 fathoms) he would call "by the deep six!".
Samuel Clemens chose the nom de plume Mark Twain because, for a riverboat skipper on the Mississippi, when the water was 12 feet deep, it was safe sailing for those boats.

References

  • Bowditch, The American Practical Navigator, 1931 edition.
  • Postings to newsgroup rec.org.sca, circa Oct 22, 1994 by djheydt(AT)uclink.berkeley.edu (Dorothy J. Heydt), Jeff Suzuki (jeffs(AT)math.bu.EDU) and Hal Ravn.

Programs

  • Mathematica
    LinearRecurrence[{2, -1}, {2, 3, 5, 7, 10, 13, 15, 17, 20, 25}, 100] (* Paolo Xausa, Jul 13 2025 *)

Formula

For n >= 9, a(n) = 5(n-5).

Extensions

a(55)-a(56) corrected by Sean A. Irvine, Jul 14 2023

A001309 Order of real Clifford group L_n connected with Barnes-Wall lattices in dimension 2^n.

Original entry on oeis.org

2, 16, 2304, 5160960, 178362777600, 96253116206284800, 819651496316379542323200, 110857799304670627788849414144000, 238987988705420266773820308079698247680000
Offset: 0

Keywords

Crossrefs

2^(2n+2) times order of Chevalley group D_n (2) (cf. A001308). Twice A014115. See also A014116, A003956 (for the complex group).
Cf. A100221.

Programs

  • Maple
    2^(n^2+n+2) * (2^n - 1) * product('2^(2*i)-1','i'=1..n-1);
  • Mathematica
    a[0] = 2; a[n_] := 2^(n^2+n+2) * (2^n-1) * Product[2^(2*i)-1, {i, 1, n-1}]; Table[a[n], {n, 0, 8}] (* Jean-François Alcover, Jul 16 2015, after Maple *)
  • Python
    from math import prod
    def A001309(n): return 2 if n == 0 else ((1<Chai Wah Wu, Jun 20 2022

Formula

From Amiram Eldar, Jul 06 2025: (Start)
a(n) = 2^(n^2+n+2) * (2^n-1) * Product_{k=1..n-1} (2^(2*k)-1).
a(n) ~ c * 2^(2*n^2+n+2), where c = A100221. (End)

A003956 Order of complex Clifford group of degree 2^n arising in quantum coding theory.

Original entry on oeis.org

8, 192, 92160, 743178240, 97029351014400, 203286581427673497600, 6819500449352277792129024000, 3660967964237442812098963052691456000, 31446995505814020383166371418359014222725120000
Offset: 0

Keywords

Crossrefs

Equals twice A027638.

Programs

  • GAP
    List([0..10], n-> 2^((n+1)^2 +2)*Product([1..n], j-> 4^j -1) ); # G. C. Greubel, Sep 24 2019
    
  • Magma
    [n eq 0 select 8 else 2^((n+1)^2+2)*(&*[4^j-1: j in [1..n]]): n in [0..10]]; // G. C. Greubel, Sep 24 2019
    
  • Maple
    a(n):= 2^(n^2+2*n+3)*mul(4^j-1, j=1..n); seq(a(n), n=0..10); # modified by G. C. Greubel, Sep 24 2019
  • Mathematica
    Table[2^(n^2+2n+3) Product[4^j-1,{j,n}],{n,0,10}] (* Harvey P. Dale, Nov 03 2017 *)
  • PARI
    vector(11, n, 2^(n^2 +2)*prod(j=1,n-1, 4^j-1) ) \\ G. C. Greubel, Sep 24 2019
    
  • Python
    from math import prod
    def A003956(n): return prod((1<Chai Wah Wu, Jun 20 2022
  • Sage
    [2^((n+1)^2 +2)*product(4^j -1 for j in (1..n)) for n in (0..10)] # G. C. Greubel, Sep 24 2019
    

Formula

From Amiram Eldar, Jul 06 2025: (Start)
a(n) = 2^(n^2+2*n+3) * Product_{k=1..n} (4^k-1).
a(n) ~ c * 2^(2*n^2+3*n+3), where c = A100221. (End)