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

A053323 First differences of A031928.

Original entry on oeis.org

42, 60, 42, 54, 72, 12, 126, 30, 54, 60, 18, 78, 24, 18, 90, 102, 18, 12, 102, 18, 78, 150, 72, 156, 72, 24, 78, 78, 138, 12, 24, 36, 54, 378, 126, 72, 12, 36, 120, 30, 84, 108, 252, 156, 30, 24, 12, 126, 60, 54, 30, 348, 18, 12, 12, 18, 12, 54, 12, 24, 120, 180, 198, 48
Offset: 1

Views

Author

Labos Elemer, Mar 06 2000

Keywords

Comments

Minimal value is 12; a(n) = 12 for n = 6, 22, 128, 172, 218, 229, 248, 253, 320, 344. - Zak Seidov, Jun 12 2017

Links

Crossrefs

Cf. A031928, A079033.
Cf. A053321, A053322, A053324, A053325, A053326, A053327, A053331.

Programs

  • Mathematica
    Differences[Select[Partition[Prime[Range[800]],2,1],#[[2]]-#[[1]]==10&][[All,1]]] (* Harvey P. Dale, Jan 16 2017 *)

A052353 Least prime in A031926 (lesser of 8-twins) whose distance to the next 8-twin is 6*n.

Original entry on oeis.org

389, 683, 719, 359, 1523, 2699, 401, 929, 2153, 1373, 2459, 2531, 1439, 1733, 8573, 2741, 4943, 9059, 5051, 983, 3491, 9173, 7529, 761, 1823, 1571, 3041, 5399, 1193, 2273, 491, 8171, 23549, 5189, 5813, 53189, 3221, 4349, 32789, 49823, 18749, 19001, 10979, 89, 19433
Offset: 2

Views

Author

Labos Elemer, Mar 07 2000

Keywords

Comments

The smallest distance [A052380(4)] between 8-twins is 12, while its minimal increment is 6.
a(n) = p yields a prime quadruple of [p, p+8, p+6n, p+6n+8] and difference pattern of [8, 6n-8, 8].

Examples

			a(2) = 389 specifies quadruple of [389, 397, 401, 409] with no prime between 397 and 401;
a(11) = 1373 gives quadruple of [1373, 1381, 1439, 1447] and [8, 58, 8] difference pattern with 6 primes in the central gap.

Links

Crossrefs

Cf. A031926, A052380, A052381, A053322.
Cf. A052350, A052351, A052352, A052354, A052355, A052356, A052357, A052358, A052359.

Programs

  • Mathematica
    seq[m_] := Module[{p = Prime[Range[m]], d, i, pp, dd, j}, d = Differences[p]; i = Position[d, 8] // Flatten; pp = p[[i]]; dd = Differences[pp]/6 - 1; j = TakeWhile[FirstPosition[dd, #] & /@ Range[Max[dd]] // Flatten, ! MissingQ[#] &]; pp[[j]]]; seq[10000] (* Amiram Eldar, Mar 05 2025 *)
  • PARI
    list(len) = {my(s = vector(len), c = 0, p1 = 2, q1 = 0, q2, d); forprime(p2 = 3, , if(p2 == p1 + 8, q2 = p1; if(q1 > 0, d = (q2 - q1)/6 - 1; if(d <= len && s[d] == 0, c++; s[d] = q1; if(c == len, return(s)))); q1 = q2); p1 = p2);} \\ Amiram Eldar, Mar 05 2025

Extensions

Name and offset corrected by Amiram Eldar, Mar 05 2025

A053325 First differences of A031932.

Original entry on oeis.org

180, 24, 456, 66, 24, 90, 456, 174, 264, 192, 318, 66, 210, 120, 66, 120, 84, 570, 84, 102, 54, 30, 276, 354, 324, 72, 84, 180, 156, 24, 336, 270, 114, 666, 324, 150, 90, 324, 96, 24, 126, 186, 108, 126, 24, 150, 162, 528, 186, 54, 120, 90, 300, 456, 120, 150
Offset: 1

Views

Author

Labos Elemer, Mar 06 2000

Keywords

Links

Crossrefs

Cf. A031932.
Cf. A053321, A053322, A053323, A053324, A053326, A053327, A053331.

Programs

  • Mathematica
    Differences[Transpose[Select[Partition[Prime[Range[1500]],2,1], Last[#]- First[#] == 14&]][[1]]] (* Harvey P. Dale, Aug 24 2012 *)

A053321 First differences of A031924.

Original entry on oeis.org

8, 16, 6, 8, 12, 10, 48, 20, 6, 10, 6, 60, 18, 6, 6, 8, 60, 22, 14, 6, 10, 50, 10, 60, 38, 16, 6, 8, 16, 6, 8, 6, 40, 6, 24, 50, 6, 18, 190, 6, 24, 6, 14, 22, 20, 30, 34, 6, 14, 6, 58, 6, 30, 6, 8, 52, 8, 30, 40, 6, 66, 20, 40, 50, 10, 48, 12, 8, 36, 84, 6, 6, 24, 84, 40, 6, 66, 14, 24
Offset: 1

Views

Author

Labos Elemer, Mar 06 2000

Keywords

Links

Crossrefs

Cf. A031924.
Cf. A053322, A053323, A053324, A053325, A053326, A053327, A053331.

Programs

  • GAP
    P:=Filtered([1..2100],IsPrime);;
P1:=List(Filtered([1..Length(P)-1],i->P[i+1]-P[i]=6),k->P[k]);;
a:=List([1..Length(P1)-1],i->P1[i+1]-P1[i]);; Print(a); # Muniru A Asiru, Dec 23 2018
  • Mathematica
    With[{p = Prime[Range[330]]}, Differences[p[[Position[Differences[p], 6] // Flatten]]]] (* Amiram Eldar, Mar 10 2025 *)

A053324 First differences of A031930.

Original entry on oeis.org

12, 256, 42, 110, 42, 136, 200, 204, 36, 70, 152, 40, 12, 20, 178, 80, 22, 78, 180, 30, 198, 102, 48, 132, 42, 156, 150, 122, 18, 102, 22, 68, 72, 16, 152, 60, 100, 272, 58, 90, 20, 298, 12, 140, 130, 12, 110, 76, 42, 120, 48, 110, 64, 158, 88, 320, 100, 174, 50
Offset: 1

Views

Author

Labos Elemer, Mar 06 2000

Keywords

Links

Crossrefs

Cf. A031930.
Cf. A053321, A053322, A053323, A053325, A053326, A053327, A053331.

Programs

  • Mathematica
    Differences[Select[Partition[Prime[Range[1000]],2,1],#[[2]]-#[[1]]==12&][[;;,1]]] (* Harvey P. Dale, Sep 28 2024 *)

A053326 First differences of A031934.

Original entry on oeis.org

102, 180, 108, 30, 342, 210, 318, 252, 18, 42, 210, 414, 54, 456, 54, 402, 258, 342, 258, 756, 126, 78, 42, 450, 84, 576, 588, 66, 366, 228, 420, 246, 366, 240, 354, 90, 240, 156, 150, 198, 510, 246, 96, 828, 156, 60, 36, 870, 180, 114, 54, 660, 600, 522, 330
Offset: 1

Views

Author

Labos Elemer, Mar 06 2000

Keywords

Links

Crossrefs

Cf. A031934.
Cf. A053321, A053322, A053323, A053324, A053325, A053327, A053331.

Programs

  • Mathematica
    With[{p = Prime[Range[2000]]}, Differences[p[[Position[Differences[p], 16] // Flatten]]]] (* Amiram Eldar, Mar 10 2025 *)

A053327 First differences of A031936.

Original entry on oeis.org

546, 190, 122, 378, 154, 248, 342, 358, 942, 86, 270, 214, 50, 40, 140, 100, 30, 326, 150, 274, 528, 218, 222, 78, 52, 38, 540, 192, 42, 40, 26, 162, 262, 308, 570, 348, 184, 456, 200, 244, 498, 62, 378, 1488, 52, 50, 42, 160, 60, 780, 78, 42, 128, 22, 270, 66
Offset: 1

Views

Author

Labos Elemer, Mar 06 2000

Keywords

Links

Crossrefs

Cf. A031936.
Cf. A053321, A053322, A053323, A053324, A053325, A053326, A053331.

Programs

  • Mathematica
    With[{p = Prime[Range[2000]]}, Differences[p[[Position[Differences[p], 18] // Flatten]]]] (* Amiram Eldar, Mar 10 2025 *)
Showing 1-7 of 7 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.