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

A109287 4-almost primes equal to p*q + 1, where p and q are (not necessarily distinct) primes.

Original entry on oeis.org

16, 36, 40, 56, 88, 135, 156, 184, 204, 210, 220, 248, 250, 260, 296, 306, 315, 328, 330, 340, 342, 372, 414, 459, 472, 490, 516, 536, 546, 580, 584, 636, 650, 686, 690, 708, 714, 732, 735, 738, 804, 808, 819, 836, 850, 852, 870, 872, 940, 950, 966, 975, 996
Offset: 1

Views

Author

Keywords

Comments

4-almost primes of the form semiprime + 1.

Examples

			a(1) = 16 because (3*5+1)=(2^4) = 16.
a(2) = 36 because (5*7+1)=((2^2)*(3^2)) = 36.
a(3) = 40 because (3*13+1)=((2^3)*5) = 40.
a(4) = 56 because (5*11+1)=((2^3)*7) = 56.
a(5) = 88 because (3*29+1)=((2^3)*11) = 88.
a(6) = 135 because (2*67+1)=((3^3)*5) = 135.
a(7) = 156 because (5*31+1)=((2^2)*3*13) = 156.
a(8) = 184 because (3*61+1)=((2^3)*23) = 184.
		

Crossrefs

Primes are in A000040. Semiprimes are in A001358. 4-almost primes are in A014613.
Primes of the form semiprime + 1 are in A005385 (safe primes).
Semiprimes of the form semiprime + 1 are in A109373.
3-almost primes of the form semiprime + 1 are in A109067.
4-almost primes of the form semiprime + 1 are in this sequence.
5-almost primes of the form semiprime + 1 are in A109383.
Least n-almost prime of the form semiprime + 1 are in A128665.
Similar to A076153; after A076153(0)=3 next difference is A076153(100)=1792 whereas A109287(100)=1794.

Programs

  • Mathematica
    bo[n_] := Plus @@ Last /@ FactorInteger[n]; Select[Range[1000], bo[ # ] == 4 && bo[ # - 1] == 2 &] (* Ray Chandler, Aug 27 2005 *)
  • PARI
    is(n)=bigomega(n)==4 && bigomega(n-1)==2 \\ Charles R Greathouse IV, Sep 16 2015

Formula

a(n) is in this sequence iff a(n) is in A014613 and (a(n)-1) is in A001358.

Extensions

Extended by Ray Chandler, Aug 27 2005
Edited by Ray Chandler, Mar 20 2007

A109288 Semiprimes equal to p*q + 1, where p and q are distinct primes.

Original entry on oeis.org

15, 22, 34, 35, 39, 58, 86, 87, 94, 95, 119, 123, 134, 142, 143, 146, 159, 178, 202, 203, 206, 214, 215, 218, 219, 254, 299, 302, 303, 327, 335, 382, 394, 395, 446, 447, 454, 482, 502, 515, 527, 538, 543, 554, 566, 623, 634, 635, 695, 698, 699, 707, 718, 746
Offset: 1

Views

Author

Giovanni Teofilatto, Aug 20 2005

Keywords

Crossrefs

Programs

  • Mathematica
    With[{nn=60},Take[Select[Union[Times@@#+1&/@Subsets[Prime[Range[2nn]],{2}]],PrimeOmega[#]==2&],nn]] (* Harvey P. Dale, Apr 28 2018 *)
    Select[Range[1000], !IntegerQ[Sqrt[#-1]] && PrimeOmega[#] == PrimeOmega[#-1] == 2 &] (* Amiram Eldar, Aug 08 2025 *)
  • PARI
    for(i=1,1000,if(bigomega(i)==2&&bigomega(i+1)==2&&issquare(i)==0,print1(i+1,","))) \\ Lambert Klasen (lambert.klasen(AT)gmx.net), Aug 21 2005

Formula

a(n) = A263990(n) + 1. - Amiram Eldar, Aug 08 2025

Extensions

More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Aug 21 2005

A109289 Composite numbers which are not of the form p*q + 1, where p and q are distinct primes.

Original entry on oeis.org

4, 6, 8, 9, 10, 12, 14, 18, 20, 21, 24, 25, 26, 28, 30, 32, 33, 38, 42, 44, 45, 46, 48, 49, 50, 51, 54, 55, 57, 60, 62, 64, 65, 68, 69, 72, 74, 76, 77, 80, 81, 82, 84, 85, 90, 91, 93, 98, 99, 100, 102, 104, 105, 106, 108, 110, 111, 114, 115, 117, 118, 121, 122, 125, 126, 128
Offset: 1

Views

Author

Giovanni Teofilatto, Aug 20 2005

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Range[2, 130], ! (PrimeQ[ # ] || (Plus @@ Last /@ FactorInteger[ # - 1] == 2 && Length[FactorInteger[ # - 1]] == 2)) &] (* Ray Chandler, Aug 25 2005 *)
    fQ[n_] := Last /@ FactorInteger[n] != {1, 1}; Select[ Range[2, 128], !PrimeQ[ # ] && fQ[ # - 1] &] (* Robert G. Wilson v *)

Extensions

Extended by Robert G. Wilson v and Ray Chandler, Aug 25 2005
Showing 1-3 of 3 results.