A004064 -id:A004064 - cp's OEIS frontend

A028490 Erroneous version of A004064.

Original entry on oeis.org

2, 3, 5, 19, 97, 103, 317, 353, 701, 9739

Offset: 0

dead

A204940 Numbers n such that (23^n - 1)/22 is prime.

Original entry on oeis.org

5, 3181, 61441, 91943, 121949, 221411

Offset: 1

Robert Price, Jan 20 2012

No other terms < 100000.

H. Lifchitz, Mersenne and Fermat primes field

Cf. A028491, A004061, A004062, A004063, A004023, A004064, A016054, A006032, A006033, A006034, A006035, A127995, A127996, A127997, A127998, A127999, A128000, A098438, A128002, A128003, A128004, A128005.

Select[Prime[Range[100]], PrimeQ[(23^#-1)/22]&]

is(n)=ispseudoprime((23^n-1)/22) \\ Charles R Greathouse IV, Jun 13 2017

a(5)=121949 corresponds to a probable prime discovered by Paul Bourdelais, Oct 19 2017

a(6)=221411 corresponds to a probable prime discovered by Paul Bourdelais, Aug 04 2020

A128164 Least k > 2 such that (n^k - 1)/(n-1) is prime, or 0 if no such prime exists.

Original entry on oeis.org

3, 3, 0, 3, 3, 5, 3, 0, 19, 17, 3, 5, 3, 3, 0, 3, 25667, 19, 3, 3, 5, 5, 3, 0, 7, 3, 5, 5, 5, 7, 0, 3, 13, 313, 0, 13, 3, 349, 5, 3, 1319, 5, 5, 19, 7, 127, 19, 0, 3, 4229, 103, 11, 3, 17, 7, 3, 41, 3, 7, 7, 3, 5, 0, 19, 3, 19, 5, 3, 29, 3, 7, 5, 5, 3, 41, 3, 3, 5, 3, 0, 23, 5, 17, 5, 11, 7, 61, 3, 3

Offset: 2

Alexander Adamchuk, Feb 20 2007

nonn

a(n) = A084740(n) for all n except n = p-1, where p is an odd prime, for which A084740(n) = 2.
All nonzero terms are odd primes.
a(n) = 0 for n = {4,9,16,25,32,36,49,64,81,100,121,125,144,...}, which are the perfect powers with exceptions of the form n^(p^m) where p>2 and (n^(p^(m+1))-1)/(n^(p^m)-1) are prime and m>=1 (in which case a(n^(p^m))=p). - Max Alekseyev, Jan 24 2009
a(n) = 3 for n in A002384, i.e., for n such that n^2 + n + 1 is prime.
a(152) > 20000. - Eric Chen, Jun 01 2015
a(n) is the least number k such that (n^k - 1)/(n-1) is a Brazilian prime, or 0 if no such Brazilian prime exists. - Bernard Schott, Apr 23 2017
These corresponding Brazilian primes are in A285642. - Bernard Schott, Aug 10 2017
a(152) = 270217, see the top PRP link. - Eric Chen, Jun 04 2018
a(184) = 16703, a(200) = 17807, a(210) = 19819, a(306) = 26407, a(311) = 36497, a(326) = 26713, a(331) = 25033; a(185) > 66337, a(269) > 63659, a(281) > 63421, and there are 48 unknown a(n) for n <= 1024. - Eric Chen, Jun 04 2018
Six more terms found: a(522)=20183, a(570)=12907, a(684)=22573, a(731)=15427, a(820)=12043, a(996)=14629. - Michael Stocker, Apr 09 2020

			a(7) = 5 because (7^5 - 1)/6 = 2801 = 11111_7 is prime and (7^k - 1)/6 = 1, 8, 57, 400 for k = 1, 2, 3, 4. - _Bernard Schott_, Apr 23 2017

Max Alekseyev and Eric Chen, Table of n, a(n) for n = 2..184 (terms 2..151 from Max Alekseyev)
Eric Chen, Table of n, a(n) for n = 2..1024 status (updated by Jinyuan Wang)
H. Dubner, Generalized repunit primes, Math. Comp., 61 (1993), 927-930.
Richard Fischer, Generalized repunit primes of the form (B^N-1)/(B-1)
Top PRPs, Search by (152^n-1)/(152-1)
Top PRPs, Search by (b^n-1)/a
Eric Weisstein's World of Mathematics, Repunit

Cf. A084738, A065854, A084740, A084741, A065507, A084742, A066180, A084732, A285642, A085104.
Cf. A002384, A049409, A100330, A162862, A217070-A217089. (numbers b such that (b^p-1)/(b-1) is prime for prime p = 3 to 97)
Cf. A000043, A028491, A004061, A004062, A004063, A004023, A005808, A004064, A016054, A006032, A006033, A006034, A133857, A006035, A127995, A127996, A127997, A204940, A127998, A127999, A128000, A181979, A098438, A128002, A209120, A185073, A128003, A128004, A181987, A128005, A239637, A240765, A294722, A242797, A243279, A267375, A245237, A245442, A173767. (numbers n such that (b^n-1)/(b-1) is prime for b = 2 to 53)
A126589 gives locations of zeros.

Table[Function[m, If[m > 0, k = 3; While[! PrimeQ[(m^k - 1)/(m - 1)], k++]; k, 0]]@ If[Set[e, GCD @@ #[[All, -1]]] > 1, {#, IntegerExponent[n, #]} &@ Power[n, 1/e] /. {{k_, m_} /; Or[Not[PrimePowerQ@ m], Prime@ m, FactorInteger[m][[1, 1]] == 2] :> 0, {k_, m_} /; m > 1 :> n}, n] &@ FactorInteger@ n, {n, 2, 17}] (* Michael De Vlieger, Apr 24 2017 *)

a052409(n) = my(k=ispower(n)); if(k, k, n>1)
a052410(n) = if (ispower(n, , &r), r, n)
is(n) = issquare(n) || (ispower(n) && !ispseudoprime((n^a052410(a052409(n))-1)/(n-1)))
a(n) = if(is(n), 0, forprime(p=3, 2^16, if(ispseudoprime((n^p-1)/(n-1)), return(p)))) \\ Eric Chen, Jun 01 2015, corrected by Eric Chen, Jun 04 2018, after Charles R Greathouse IV in A052409 and Michel Marcus in A052410

a(18) = 25667 found by Henri Lifchitz, Sep 26 2007

A240765 Numbers n such that (43^n - 1)/42 is prime.

Original entry on oeis.org

5, 13, 6277, 26777, 27299, 40031, 44773, 194119

Offset: 1

Robert Price, Apr 12 2014

a(8) > 10^5. - Robert Price, Apr 12 2014

H. Dubner, Generalized repunit primes, Math. Comp., 61 (1993), 927-930.
H. Lifchitz, Mersenne and Fermat primes field

Cf. A028491, A004061, A004062, A004063, A004023, A005808, A004064, A016054, A006032, A006033, A006034, A006035, A127995, A127996, A127997, A127998, A127999, A098438, A128002, A128003, A128004, A128005.

A240765:=n->`if`(isprime((43^n - 1)/42), n, NULL); seq(A240765(n), n=1..100000); # Wesley Ivan Hurt, Apr 12 2014

Select[Prime[Range[100000]], PrimeQ[(43^#-1)/42]&]

is(n)=ispseudoprime((43^n-1)/42) \\ Charles R Greathouse IV, Feb 20 2017

a(8) from Paul Bourdelais, Aug 04 2020

A242797 Numbers n such that (45^n - 1)/44 is prime.

Original entry on oeis.org

19, 53, 167, 3319, 11257, 34351, 216551

Offset: 1

Robert Price, May 22 2014

a(7) > 10^5.
Numbers corresponding to a(4)-a(6) are probable primes.
All terms are prime.

Harvey Dubner, Generalized repunit primes, Math. Comp., 61 (1993), 927-930.
Henri Lifchitz, Mersenne and Fermat primes field

Cf. A028491, A004061, A004062, A004063, A004023, A005808, A004064, A016054, A006032, A006033, A006034, A006035, A127995, A127996, A127997, A127998, A127999, A098438, A128002, A128003, A128004, A128005, A240765.

A242797:=n->`if`(isprime((45^n - 1)/44), n, NULL); seq(A242797(n), n=1..100000); # Wesley Ivan Hurt, Apr 12 2014

Select[Prime[Range[100000]], PrimeQ[(45^# - 1)/44] &]

is(n)=ispseudoprime((45^n-1)/44) \\ Charles R Greathouse IV, Feb 20 2017

a(7)=216551 corresponds to a probable prime discovered by Paul Bourdelais, Aug 04 2020

A243279 Numbers n such that (46^n - 1)/45 is prime.

Original entry on oeis.org

2, 7, 19, 67, 211, 433, 2437, 2719, 19531

Offset: 1

Robert Price, Jun 02 2014

a(10) > 10^5.
Numbers corresponding to a(7)-a(9) are probable primes.
All terms are prime.

Harvey Dubner, Generalized repunit primes, Math. Comp., 61 (1993), 927-930.
Henri Lifchitz, Mersenne and Fermat primes field

Cf. A028491, A004061, A004062, A004063, A004023, A005808, A004064, A016054, A006032, A006033, A006034, A006035, A127995, A127996, A127997, A127998, A127999, A098438, A128002, A128003, A128004, A128005, A240765, A242797.

A243279:=n->`if`(isprime((46^n - 1)/45), n, NULL); seq(A243279(n), n=1..100000); # Wesley Ivan Hurt, Apr 12 2014

Select[Prime[Range[100000]], PrimeQ[(46^# - 1)/45] &]

is(n)=ispseudoprime((46^n-1)/45) \\ Charles R Greathouse IV, May 22 2017

A245237 Numbers k such that (48^k - 1)/47 is prime.

Original entry on oeis.org

19, 269, 349, 383, 1303, 15031, 200443, 343901

Offset: 1

Robert Price, Jul 14 2014

a(7) > 10^5.

All terms are prime.

Harvey Dubner, Generalized repunit primes, Math. Comp., 61 (1993), 927-930.
Henri Lifchitz, Mersenne and Fermat primes field

Cf. A028491, A004061, A004062, A004063, A004023, A005808, A004064, A016054, A006032, A006033, A006034, A006035, A127995, A127996, A127997, A127998, A127999, A098438, A128002, A128003, A128004, A128005, A240765, A242797, A243279.

A245237:=n->`if`(isprime((48^n - 1)/47), n, NULL); seq(A245237(n), n=1..100000); # Wesley Ivan Hurt, Apr 12 2014

Select[Prime[Range[100000]], PrimeQ[(48^# - 1)/47] &]

is(n)=ispseudoprime((48^n-1)/47) \\ Charles R Greathouse IV, Jun 06 2017

a(7) corresponds to a probable prime discovered by Paul Bourdelais, Aug 04 2020

a(8) from Paul Bourdelais, Mar 03 2025

A250288 Numbers n such that the duodecimal repunit (12^n - 1)/11 is a semiprime.

Original entry on oeis.org

7, 13, 17, 37, 47, 73, 101, 131, 151, 167, 197, 241, 263

Offset: 1

Eric Chen, Dec 18 2014

First unknown term is 311.
If (12^n - 1)/11 is a semiprime, n must be prime or the square of a prime (A001248), but no n = prime squared is known which yields a semiprime value of (12^n - 1)/11. (Specifically, n must be the square of a prime in A004064, and must be at least 491401 = 701^2.)
No other known terms below 1000; the only other possible terms below 1000 are 449, 521, 571, 577, 613, 709, 751, 757, 769, 787, 853, 859, 887, 929, and 991.

			a(1) = 7 so 1111111 = 46E * 2X3E (written in base 12).

Samuel Wagstaff, The Cunningham Project

Cf. A046413, A085724, A004064.

Select[Range[120], PrimeOmega[(12^# - 1)/11] == 2 &] (* Alonso del Arte, Dec 18 2014 *)

A245442 Numbers n such that (50^n - 1)/49 is prime.

Original entry on oeis.org

3, 5, 127, 139, 347, 661, 2203, 6521, 210319

Offset: 1

Robert Price, Jul 22 2014

a(9) > 10^5.

All terms are prime.

Harvey Dubner, Generalized repunit primes, Math. Comp., 61 (1993), 927-930.
Henri Lifchitz, Mersenne and Fermat primes field

Cf. A028491, A004061, A004062, A004063, A004023, A005808, A004064, A016054, A006032, A006033, A006034, A006035, A127995, A127996, A127997, A127998, A127999, A098438, A128002, A128003, A128004, A128005, A240765, A242797, A243279, A245237.

A245442:=n->`if`(isprime((50^n - 1)/49), n, NULL); seq(A245442(n), n=1..100000); # Wesley Ivan Hurt, Apr 12 2014

Select[Prime[Range[100000]], PrimeQ[(50^# - 1)/49] &]

is(n)=ispseudoprime((50^n-1)/49) \\ Charles R Greathouse IV, Jun 13 2017

a(9)=210319 corresponds to a probable prime discovered by Paul Bourdelais, Aug 04 2020

A181987 Numbers n such that (39^n - 1)/38 is prime.

Original entry on oeis.org

349, 631, 4493, 16633, 36341

Offset: 1

Robert Price, Apr 04 2012

Harvey Dubner, Generalized repunit primes, Math. Comp., 61 (1993), 927-930.
Henri Lifchitz, Mersenne and Fermat primes field

Cf. A028491, A004061, A004062, A004063, A004023, A005808, A004064, A016054, A006032, A006033, A006034, A006035, A127995, A127996, A127997, A127998, A127999, A098438, A128002, A128003, A128004, A128005.

Select[Prime[Range[100000]], PrimeQ[(39^#-1)/38]&]

is(n)=ispseudoprime((39^n-1)/38) \\ Charles R Greathouse IV, Jun 13 2017

cp's OEIS Frontend

A028490 Erroneous version of A004064.

Views

Author

Keywords

A204940 Numbers n such that (23^n - 1)/22 is prime.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A128164 Least k > 2 such that (n^k - 1)/(n-1) is prime, or 0 if no such prime exists.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A240765 Numbers n such that (43^n - 1)/42 is prime.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Extensions

A242797 Numbers n such that (45^n - 1)/44 is prime.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Extensions

A243279 Numbers n such that (46^n - 1)/45 is prime.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A245237 Numbers k such that (48^k - 1)/47 is prime.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Extensions

A250288 Numbers n such that the duodecimal repunit (12^n - 1)/11 is a semiprime.

Views

Author

Keywords

Comments