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.

A166237 Differences between consecutive products of two distinct primes: a(n) = A006881(n+1) - A006881(n).

Original entry on oeis.org

4, 4, 1, 6, 1, 4, 7, 1, 1, 3, 1, 7, 5, 4, 2, 1, 4, 3, 4, 5, 3, 5, 3, 1, 1, 4, 2, 1, 1, 11, 5, 4, 3, 1, 3, 1, 6, 4, 1, 7, 1, 1, 2, 1, 9, 3, 1, 2, 5, 11, 1, 5, 2, 2, 7, 7, 1, 1, 2, 1, 3, 4, 1, 1, 2, 1, 1, 2, 5, 9, 2, 10, 2, 4, 1, 5, 3, 3, 2, 7, 4, 9, 4, 4, 3, 1, 2, 1, 1, 2, 4, 5, 5, 2, 2, 3, 1, 2, 5, 1, 4, 2, 5, 9, 3
Offset: 1

Views

Author

Keywords

Comments

Goldston, Graham, Pintz & Yıldırım (2005) prove that a(n+1) - a(n) <= 26 infinitely often. - Charles R Greathouse IV, Dec 26 2020

Crossrefs

Cf. A006881 (products of two distinct primes), A001358 (semiprimes: products of two primes), A065516 (differences between products of two primes), A001223 (differences between consecutive primes).

Programs

  • Magma
    T:=[ n: n in [1..360] | #PrimeDivisors(n) eq 2 and &*[ d[2]: d in Factorization(n) ] eq 1 ]; [ T[j+1]-T[j]: j in [1..#T-1] ]; // Klaus Brockhaus, Oct 13 2009
  • Mathematica
    f[n_]:=Last/@FactorInteger[n]=={1,1}; a=6;lst={};Do[If[f[n],AppendTo[lst,n-a];a=n],{n,9,6!}];lst
  • PARI
    {m=106; v=vector(m); n=0; c=0; while(cKlaus Brockhaus, Oct 13 2009
    

Extensions

Edited by Klaus Brockhaus, Oct 13 2009
Added formula to clarify the definition. - N. J. A. Sloane, Jul 19 2022