A204231 -id:A204231 - cp's OEIS frontend

A127346 Primes in A127345.

31, 71, 167, 311, 1151, 3119, 4871, 5711, 6791, 14831, 24071, 33911, 60167, 79031, 101159, 106367, 115631, 158231, 235751, 259751, 366791, 402551, 455471, 565919, 635711, 644951, 1124831, 1347971, 1510799, 1547927, 1743419, 1851671, 2048471

Offset: 1

Artur Jasinski, Jan 11 2007

nonn

Primes of the form prime(k)*prime(k+1) + prime(k)*prime(k+2) + prime(k+1)*prime(k+2).

A prime number n is in the sequence if for some k it is the coefficient of x^1 of the polynomial Product_{j=0..2} (x-prime(k+j)); the roots of this polynomial are prime(k), ..., prime(k+2).

Zak Seidov, Table of n, a(n) for n = 1..1000

Cf. A127345, A127347, A127351, A006094, A002110, A034962, A034965, A082246, A082251, A127340, A127341, A070934, A046301, A046302, A046303, A046324, A046325, A046326, A046327.

b = {}; a = {}; Do[If[PrimeQ[Prime[x] Prime[x + 1] + Prime[x] Prime[x + 2] + Prime[x + 1] Prime[x + 2]], AppendTo[a, Prime[x] Prime[x + 1] + Prime[x] Prime[x + 2] + Prime[x + 1] Prime[x + 2]], AppendTo[b, Prime[x] Prime[x + 1] + Prime[x] Prime[x + 2] + Prime[x + 1] Prime[x + 2]]], {x, 1, 100}]; Print[a] (* Artur Jasinski, Jan 11 2007 *)
s[li_] := li[[1]]*(li[[2]]+li[[3]])+li[[2]]*li[[3]]; Select[(s[#]&/@Partition[Prime[Range[100]], 3, 1]), PrimeQ] (* Zak Seidov, Jan 13 2012 *)

{m=143;k=2;for(n=1,m,a=sum(i=n,n+k-1,sum(j=i+1,n+k,prime(i)*prime(j)));if(isprime(a),print1(a,",")))} \\ Klaus Brockhaus, Jan 21 2007

{m=143;k=2;for(n=1,m,a=polcoeff(prod(j=0,k,(x-prime(n+j))),1);if(isprime(a),print1(a,",")))} \\ Klaus Brockhaus, Jan 21 2007

p=2; q=3; forprime(r=5, 1e3, if(isprime(t=p*q+p*r+q*r), print1(t", ")); p=q; q=r) \\ Charles R Greathouse IV, Jan 13 2012

a(n) = A127345(A204231(n)). - Zak Seidov, Jan 13 2012

Edited and extended by Klaus Brockhaus, Jan 21 2007

A204432 Permanent of the n-th principal submatrix of A204431.

Original entry on oeis.org

2, 1, 9, 40, 132, 1032, 7824, 51912, 530712, 5619456, 53529984, 707802624, 9591229440, 119716185600, 1938416832000, 32061464064000, 496487584512000, 9509523337728000, 185772505605120000, 3434389946233344000

Offset: 1

Clark Kimberling, Jan 15 2012

nonn

Cf. A204231, A204263.

f[i_, j_] := Mod[2 i + 2 j + 1, 3];
m[n_] := Table[f[i, j], {i, 1, n}, {j, 1, n}]
TableForm[m[8]] (* 8x8 principal submatrix *)
Flatten[Table[f[i, n + 1 - i],
  {n, 1, 14}, {i, 1, n}]]        (* A204431 *)
Permanent[m_] :=
  With[{a = Array[x, Length[m]]},
   Coefficient[Times @@ (m.a), Times @@ a]];
Table[Permanent[m[n]], {n, 1, 22}]  (* A204432 *)

cp's OEIS Frontend

A127346 Primes in A127345.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

PARI

PARI

Formula

Extensions

A204432 Permanent of the n-th principal submatrix of A204431.

Views

Author

Keywords

Crossrefs

Programs

Mathematica