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.

User: Steve Homewood

Steve Homewood's wiki page.

Steve Homewood has authored 2 sequences.

A302333 Wagstaff primes related to The New Mersenne Conjecture that are the indices of perfect numbers in a list of centered 9-gonal numbers.

Original entry on oeis.org

3, 11, 43, 2731, 43691, 174763, 715827883, 768614336404564651, 56713727820156410577229101238628035243
Offset: 1

Author

Steve Homewood, Apr 05 2018

Keywords

Comments

Let p be a Wagstaff prime related to The New Mersenne Conjecture. Then (3p-2)(3p-1)/2 gives the perfect number whose index it is.

Examples

			For p = 3, (3*3-2)*(3*3-1)/2 = 28 and for p = 11, (3*11-2)(3*11-1)/2 = 496.
		

Crossrefs

A185660 Numbers k such that (k^3 + 11*k) +/-1 is a twin prime pair.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 15, 16, 17, 20, 22, 37, 44, 46, 48, 52, 57, 61, 63, 68, 69, 70, 72, 81, 84, 86, 94, 96, 99, 101, 106, 108, 112, 117, 123, 124, 134, 138, 162, 178, 189, 191, 193, 200, 202, 206, 223, 224, 229, 260, 264, 271, 279, 282, 294, 297
Offset: 1

Author

G. L. Honaker, Jr., Feb 08 2011; proposed by Steve Homewood

Keywords

Examples

			For k=9, the corresponding twin prime pair is {827, 829}.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[300], PrimeQ[#^3 + 11# - 1] && PrimeQ[#^3 + 11# + 1] &]
    Select[Range[300],AllTrue[#^3+11#+{1,-1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 28 2014 *)