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

A080892 Numbers k such that 3^k-2 is a semiprime.

Original entry on oeis.org

3, 8, 10, 12, 13, 15, 16, 19, 20, 21, 25, 28, 39, 42, 44, 48, 55, 57, 60, 66, 67, 76, 78, 85, 118, 130, 156, 162, 193, 212, 214, 217, 218, 228, 244, 312, 330, 352, 357, 376, 386, 388, 412, 442, 449, 464, 480, 525, 545, 552, 630, 644
Offset: 1

Views

Author

Hugo Pfoertner, Mar 30 2003

Keywords

Comments

The next roadblock to being able to extend the sequence is 3^658 - 2, a 314-decimal digit composite with no known factors. - Ryan Propper, Feb 07 2013

Examples

			a(1) = 3 because 3^3-2 = 25 = 5*5.
a(2) = 8 because 3^8-2 = 6559 = 7*937.
a(3) = 10 because 3^10-2 = 59047 = 137*431.
		

Crossrefs

Programs

  • Mathematica
    Do[f = 3^n - 2; If[ !PrimeQ[f], s = FactorIntegerECM[f]; If[PrimeQ[s] && PrimeQ[f/s], Print[n]]], {n, 2, 10^3}] (* Ryan Propper, May 11 2007 *)
  • PARI
    for(n=1,200,if(bigomega(3^n-2)==2,print1(n","))) /* Herman Jamke (hermanjamke(AT)fastmail.fm), Apr 02 2007 */

Extensions

Added missing a(1)=3 by Herman Jamke (hermanjamke(AT)fastmail.fm), Apr 01 2007
a(27)-a(42) from Herman Jamke (hermanjamke(AT)fastmail.fm) and Ryan Propper, Apr 01, Apr 19 2007, May 11 2007
Restored missing terms < 388 by Sean A. Irvine, Apr 06 2011 (Some correctly stated terms in Jamke's and Propper's list had been omitted during editing)
a(43)-a(47) from Sean A. Irvine, Jun 13 2012
a(48) from Ryan Propper, Sep 30 2012
a(49)-a(52) from Ryan Propper, Feb 07 2013

A080443 Largest prime factor of 3^n+2.

Original entry on oeis.org

3, 5, 11, 29, 83, 7, 43, 199, 6563, 127, 59051, 25307, 48313, 63773, 4782971, 14348909, 119243, 335429, 23203, 10613, 60089, 1224149, 795323, 919, 282429536483, 1583717027, 2541865828331, 693236134999, 174632003473
Offset: 0

Views

Author

Hugo Pfoertner, Mar 21 2003

Keywords

Crossrefs

Programs

  • Magma
    [Max(PrimeDivisors(3^n+2)):n in [0..28]]; // Marius A. Burtea, Jul 12 2019
  • Mathematica
    Table[FactorInteger[3^n+2][[-1,1]],{n,0,30}] (* Harvey P. Dale, Oct 21 2011 *)
  • PARI
    for(n=0,28,f=factor(3^n+2);print1(f[#f[,1],1],", ")) \\ Hugo Pfoertner, Jul 12 2019
    

Extensions

Corrected by T. D. Noe, Nov 15 2006
Showing 1-2 of 2 results.