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

A005471 Primes of the form m^2 + 3m + 9, where m can be positive or negative.

Original entry on oeis.org

7, 13, 19, 37, 79, 97, 139, 163, 313, 349, 607, 709, 877, 937, 1063, 1129, 1489, 1567, 1987, 2557, 2659, 3313, 3547, 4297, 5119, 5557, 7489, 8017, 8563, 9127, 9319, 9907, 10513, 11779, 12889, 15013, 15259, 16519, 17299, 18097, 18367, 18913, 20029
Offset: 1

Views

Author

Keywords

Comments

Primes of the form m^2 + m + 7, for some m >= 0. - Daniel Forgues, Jan 26 2020
Primes p such that 4*p - 27 is a square. Also, primes p such that the Galois group of the polynomial X^3 - p*X + p over Q is the cyclic group of order 3. See Conrad, Corollary 2.5. - Peter Bala, Oct 17 2021
From Peter Bala, Nov 18 2021: (Start)
Primes p such that the Galois group of the cubic X^3 + p*(X + 1)^2 over Q is the cyclic group C_3.
If p = m^2 + 3*m + 9 is prime then the Galois group of the cubic X^3 - m*X^2 - (m + 3)*X - 1 over Q is C_3. See Shanks.
The pair of cubics X^3 - m*p*X^2 - 3*(m+1)*p*X - (2*m+3)*p and X^3 - 2*p*X^2 + p*(p - 10)*X + p*(p - 8) also have their Galois groups over Q equal to C_3 (both cubics are irreducible over Q by Eisenstein's criteria). Apply Conrad, Corollary 2.5. (End)

Examples

			For m = -11, -10, ..., 22 the primes of the form m^2+3m+9 are 97, 79, 37, 19, 13, 7, 7, 13, 19, 37, 79, 97, 139, 163, 313, 349.
		

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Primes in A027692.

Programs

  • Magma
    [a: n in [-1..150] | IsPrime(a) where a is  n^2+3*n+9]; // Vincenzo Librandi, Mar 22 2013
  • Maple
    A005471 := proc(n)
        if n = 1 then
            7;
        else
            A175282(n-1)*(3+A175282(n-1))+9 ;
        end if;
    end proc: # R. J. Mathar, Jun 06 2019
  • Mathematica
    Select[Table[n^2 + 3*n + 9, {n, -1, 200}], PrimeQ] (* T. D. Noe, Mar 21 2013 *)

Formula

a(n) == 1 (mod 6). - Zak Seidov, Mar 20 2010
a(n+1) = A175282(n)^2 + 3*A175282(n) + 9. - R. J. Mathar, Jun 06 2019

A176271 The odd numbers as a triangle read by rows.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 109, 111, 113, 115, 117, 119, 121, 123, 125, 127, 129, 131
Offset: 1

Views

Author

Reinhard Zumkeller, Apr 13 2010

Keywords

Comments

A108309(n) = number of primes in n-th row.

Examples

			From _Philippe Deléham_, Oct 03 2011: (Start)
Triangle begins:
   1;
   3,  5;
   7,  9, 11;
  13, 15, 17, 19;
  21, 23, 25, 27, 29;
  31, 33, 35, 37, 39, 41;
  43, 45, 47, 49, 51, 53, 55;
  57, 59, 61, 63, 65, 67, 69, 71;
  73, 75, 77, 79, 81, 83, 85, 87, 89; (End)
		

Crossrefs

Programs

  • Haskell
    a176271 n k = a176271_tabl !! (n-1) !! (k-1)
    a176271_row n = a176271_tabl !! (n-1)
    a176271_tabl = f 1 a005408_list where
       f x ws = us : f (x + 1) vs where (us, vs) = splitAt x ws
    -- Reinhard Zumkeller, May 24 2012
    
  • Magma
    [n^2-n+2*k-1: k in [1..n], n in [1..15]]; // G. C. Greubel, Mar 10 2024
    
  • Maple
    A176271 := proc(n,k)
        n^2-n+2*k-1 ;
    end proc: # R. J. Mathar, Jun 28 2013
  • Mathematica
    Table[n^2-n+2*k-1, {n,15}, {k,n}]//Flatten (* G. C. Greubel, Mar 10 2024 *)
  • SageMath
    flatten([[n^2-n+2*k-1 for k in range(1,n+1)] for n in range(1,16)]) # G. C. Greubel, Mar 10 2024

Formula

T(n, k) = n^2 - n + 2*k - 1 for 1 <= k <= n.
T(n, k) = A005408(n*(n-1)/2 + k - 1).
T(2*n-1, n) = A016754(n-1) (main diagonal).
T(2*n, n) = A000466(n).
T(2*n, n+1) = A053755(n).
T(n, k) + T(n, n-k+1) = A001105(n), 1 <= k <= n.
T(n, 1) = A002061(n), central polygonal numbers.
T(n, 2) = A027688(n-1) for n > 1.
T(n, 3) = A027690(n-1) for n > 2.
T(n, 4) = A027692(n-1) for n > 3.
T(n, 5) = A027694(n-1) for n > 4.
T(n, 6) = A048058(n-1) for n > 5.
T(n, n-3) = A108195(n-2) for n > 3.
T(n, n-2) = A082111(n-2) for n > 2.
T(n, n-1) = A014209(n-1) for n > 1.
T(n, n) = A028387(n-1).
Sum_{k=1..n} T(n, k) = A000578(n) (Nicomachus's theorem).
Sum_{k=1..n} (-1)^(k-1)*T(n, k) = (-1)^(n-1)*A065599(n) (alternating sign row sums).
Sum_{j=1..n} (Sum_{k=1..n} T(j, k)) = A000537(n) (sum of first n rows).

A027722 Numbers k such that k^2+k+7 is a palindrome.

Original entry on oeis.org

0, 1, 17, 31, 177, 274, 280, 301, 313, 1777, 2764, 3001, 27259, 30001, 177237, 300001, 312208, 1762122, 3000001, 27515125, 30000001, 30122098, 300000001, 303758458, 2673533185, 2817818390, 3000000001, 3121001208, 26928832879, 28255878334, 30000000001
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse[d]]; f[n_] := n^2 + n + 7; Select[Range[0, 10^5], palQ@ f@ # &] (* Giovanni Resta, Aug 29 2018 *)

Extensions

More terms from Giovanni Resta, Aug 28 2018

A027723 Palindromes of form k^2 + k + 7.

Original entry on oeis.org

7, 9, 313, 999, 31513, 75357, 78687, 90909, 98289, 3159513, 7642467, 9009009, 743080347, 900090009, 31413131413, 90000900009, 97474147479, 3105075705013, 9000009000009, 757082131280757, 900000090000009, 907340818043709, 90000000900000009, 92269201110296229
Offset: 1

Views

Author

Keywords

Comments

From Robert Israel, May 16 2018: (Start)
Palindromes m such that 4*m - 27 is a square.
Each term has an odd number of digits and ends in 3, 7 or 9.
Contains 9*(1+10^k+10^(2*k)) for each k>=1. (End)

Crossrefs

Programs

  • Maple
    R[1]:= [1,3,5,7,9]: X[1]:= R[1]:
    for k from 2 to 6 do
      R[k]:= map(t -> seq(10^(k-1)*j+t,j=0..9),R[k-1]);
    X[k]:= map(t -> seq(j+10*t,j=0..9),X[k-1])
    od:
    Res:= 7,9:
    for k from 1 to 6 do
      for j from 1 to 5*10^(k-1) do
          r:= 10^(k+1)*X[k][j]+R[k][j];
          for y from 0 to 9 do
            if issqr(4*(r+10^k*y)-27) then
              x:= r+10^k*y;
              Res:= Res,x;
            fi
    od od od:
    Res; # Robert Israel, May 16 2018

Extensions

More terms from Giovanni Resta, Aug 28 2018

A213921 Natural numbers placed in table T(n,k) layer by layer. The order of placement: at the beginning filled odd places of layer clockwise, next - even places clockwise. Table T(n,k) read by antidiagonals.

Original entry on oeis.org

1, 2, 3, 5, 4, 7, 10, 8, 9, 13, 17, 14, 6, 16, 21, 26, 22, 11, 12, 25, 31, 37, 32, 18, 15, 20, 36, 43, 50, 44, 27, 23, 24, 30, 49, 57, 65, 58, 38, 33, 19, 35, 42, 64, 73, 82, 74, 51, 45, 28, 29, 48, 56, 81, 91, 101, 92, 66, 59, 39, 34, 41, 63, 72, 100, 111
Offset: 1

Views

Author

Boris Putievskiy, Mar 05 2013

Keywords

Comments

A permutation of the natural numbers.
a(n) is a pairing function: a function that reversibly maps Z^{+} x Z^{+} onto Z^{+}, where Z^{+} is the set of integer positive numbers.
Layer is pair of sides of square from T(1,n) to T(n,n) and from T(n,n) to T(n,1). Enumeration table T(n,k) is layer by layer. The order of the list:
T(1,1)=1;
T(1,2), T(2,1), T(2,2);
. . .
T(1,n), T(3,n), ... T(n,3), T(n,1), T(2,n), T(4,n), ... T(n,4), T(n,2);
...

Examples

			The start of the sequence as table:
   1   2   5  10  17  26 ...
   3   4   8  14  22  32 ...
   7   9   6  11  18  27 ...
  13  16  12  15  23  33 ...
  21  25  20  24  19  28 ...
  31  36  30  35  29  34 ...
  ...
The start of the sequence as triangle array read by rows:
   1;
   2,  3;
   5,  4,  7;
  10,  8,  9, 13;
  17, 14,  6, 16, 21;
  26, 22, 11, 12, 25, 31;
  ...
		

Crossrefs

Programs

  • Python
    t=int((math.sqrt(8*n-7) - 1)/ 2)
    i=n-t*(t+1)/2
    j=(t*t+3*t+4)/2-n
    if i > j:
       result=i*i-(j%2)*i+2-int((j+2)/2)
    else:
       result=j*j-((i%2)+1)*j + int((i+3)/2)

Formula

As a table:
T(n,k) = n*n - (k mod 2)*n + 2 - floor((k+2)/2), if n>k;
T(n,k) = k*k - ((n mod 2)+1)*k + floor((n+3)/2), if n<=k.
As a linear sequence:
a(n) = i*i - (j mod 2)*i + 2 - floor((j+2)/2), if i>j;
a(n) = j*j - ((i mod 2)+1)*j + floor((i+3)/2), if i<=j; where i = n-t*(t+1)/2, j = (t*t+3*t+4)/2-n, t = floor((-1+sqrt(8*n-7))/2).

A214870 Natural numbers placed in table T(n,k) layer by layer. The order of placement: at the beginning filled odd places of layer clockwise, next - even places counterclockwise. T(n,k) read by antidiagonals.

Original entry on oeis.org

1, 2, 3, 5, 4, 7, 10, 9, 8, 13, 17, 16, 6, 14, 21, 26, 25, 11, 12, 22, 31, 37, 36, 18, 15, 20, 32, 43, 50, 49, 27, 24, 23, 30, 44, 57, 65, 64, 38, 35, 19, 33, 42, 58, 73, 82, 81, 51, 48, 28, 29, 45, 56, 74, 91, 101, 100, 66, 63, 39, 34, 41, 59, 72, 92, 111
Offset: 1

Views

Author

Boris Putievskiy, Mar 11 2013

Keywords

Comments

Permutation of the natural numbers.
a(n) is a pairing function: a function that reversibly maps Z^{+} x Z^{+} onto Z^{+}, where Z^{+} is the set of integer positive numbers.
Layer is pair of sides of square from T(1,n) to T(n,n) and from T(n,n) to T(n,1).
Enumeration table T(n,k) layer by layer. The order of the list:
T(1,1)=1;
T(1,2), T(2,1), T(2,2);
. . .
T(1,n), T(3,n), ... T(n,3), T(n,1); T(n,2), T(n,4), ... T(4,n), T(2,n);
. . .

Examples

			The start of the sequence as table:
   1   2   5  10  17  26 ...
   3   4   9  16  25  36 ...
   7   8   6  11  18  27 ...
  13  14  12  15  24  35 ...
  21  22  20  23  19  28 ...
  31  32  30  33  29  34 ...
  ...
The start of the sequence as triangle array read by rows:
   1;
   2,  3;
   5,  4,  7;
  10,  9,  8, 13;
  17, 16,  6, 14, 21;
  26, 25, 11, 12, 22, 31;
  ...
		

Crossrefs

Programs

  • Python
    t=int((math.sqrt(8*n-7) - 1)/ 2)
    i=n-t*(t+1)/2
    j=(t*t+3*t+4)/2-n
    if i > j:
       result=i*i-i+(j%2)*(2-(j+1)/2)+((j+1)%2)*(j/2+1)
    else:
       result=j*j-2*(i%2)*j + (i%2)*((i+1)/2+1) + ((i+1)%2)*(-i/2+1)

Formula

As table
T(n,k) = k*k-2*(n mod 2)*k+(n mod 2)*((n+1)/2+1)+((n+1) mod 2)*(-n/2+1), if n<=k;
T(n,k) = n*n-n+(k mod 2)*(2-(k+1)/2)+((k+1) mod 2)*(k/2+1), if n>k.
As linear sequence
a(n) = j*j-2*(i mod 2)*j+(i mod 2)*((i+1)/2+1)+((i+1) mod 2)*(-i/2+1), if i<=j;
a(n) = i*i-i+(j mod 2)*(2-(j+1)/2)+((j+1) mod 2)*(j/2+1), if i>j; where i=n-t*(t+1)/2, j=(t*t+3*t+4)/2-n, t=floor((-1+sqrt(8*n-7))/2).
Showing 1-6 of 6 results.