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.

Previous Showing 11-12 of 12 results.

A242341 Numbers k such that k*10^k - 1 is a semiprime.

Original entry on oeis.org

1, 6, 20, 29, 35, 40, 79, 164, 185, 198, 201, 218, 248, 249, 251, 264, 267, 274, 305, 323, 339, 344, 350, 362, 432, 539
Offset: 1

Views

Author

Vincenzo Librandi, May 12 2014

Keywords

Comments

The semiprimes of this form are: 9, 5999999, 1999999999999999999999, 2899999999999999999999999999999, ...
From Robert Israel, Sep 04 2016: (Start)
k == 1 (mod 3) is in the sequence iff (k*10^k-1)/3 is prime.
The sequence includes 185, 198, 201, 251, 267, 274, and 1795. (End)
a(27) >= 596. Below 1000, 785 and 833 are in the sequence. Unknown factorization for 596, 669, 917, 933. - Hugo Pfoertner, Jul 29 2019

Crossrefs

Cf. similar sequences listed in A242273.

Programs

  • Magma
    IsSemiprime:=func; [n: n in [2..70] | IsSemiprime(s) where s is n*10^n-1];
    
  • Maple
    issemiprime:= proc(n) local F, t;
        F:= ifactors(n, easy)[2];
        t:= add(f[2], f=F);
        if t = 1 then
           if type(F[1][1], integer) then return false fi
        elif t = 2 then
           return not hastype(F, name)
        else # t > 2
           return false
        fi;
        F:= ifactors(n)[2];
        return evalb(add(f[2], f=F)=2);
    end proc:
    select(t -> issemiprime(t*10^t-1), [$1..80]); # Robert Israel, Sep 04 2016
  • Mathematica
    Select[Range[70], PrimeOmega[# 10^# - 1]==2&]
  • PARI
    is(n)=bigomega(n*10^n-1)==2 \\ Charles R Greathouse IV, Sep 04 2016

Extensions

Terms 1 and 79 from Robert Israel, Sep 04 2016
a(8)-a(26) from Hugo Pfoertner, Jul 29 2019

A259026 Numbers n such that n*23^n-1 is semiprime.

Original entry on oeis.org

1, 2, 6, 8, 18, 21, 24, 26, 28, 30, 33, 230
Offset: 1

Author

Luke March, Aug 06 2015

Keywords

Comments

After 290, which may or may not be in the sequence, 420 and 450 are definitely in the sequence.

Crossrefs

Similar sequences listed in A242273.

Programs

  • Magma
    IsSemiprime:=func; [n: n in [2..200] | IsSemiprime(s) where s is n*23^n-1];
    
  • Mathematica
    Select[Range[200], PrimeOmega[# 23^# - 1]==2&]
  • PARI
    isok(n)=bigomega(n*23^n-1)==2 \\ Anders Hellström, Aug 20 2015
Previous Showing 11-12 of 12 results.