A156973 -id:A156973 - cp's OEIS frontend

A243429 Primes of the form 2^n + 39.

41, 43, 47, 71, 103, 167, 1063, 2087, 8231, 131111, 536870951, 8589934631, 549755813927, 8796093022247, 154742504910672534362390567, 40564819207303340847894502572071, 162259276829213363391578010288167, 2722258935367507707706996859454145691687

Offset: 1

Vincenzo Librandi, Jun 05 2014

nonn

Associated n: 1, 2, 3, 5, 6, 7, 10, 11, 13, 17, 29, 33, 39, 43, 87, 105, 107, 131, 253, 329, ....

Vincenzo Librandi, Table of n, a(n) for n = 1..34

Cf. primes of the form 2^n+k: A092506 (k=1), A057733 (k=3), A123250 (k=5), A104066 (k=7), A104070 (k=9), A156940 (k=11), A104067 (k=13), A144487 (k=15), A156973 (k=17), A104068 (k=19), A156983 (k=21), A176922 (k=23), A104072 (k=25), A104071 (k=27), A156974 (k=29), A104069 (k=31), A176926 (k=33), A176927 (k=35), A176924 (k=37), this sequence (k=39), A176925 (k=41), A243430 (k=43), A243431 (k=45), A243432 (k=47), A104073 (k=49).

[a: n in [0..500] | IsPrime(a) where a is 2^n+39];

Select[Table[2^n + 39, {n, 0, 500}], PrimeQ]

A172183 a(n) is the smallest prime of the form p^q+n, where p and q are prime, or zero if no such prime exists.

Original entry on oeis.org

5, 11, 7, 13, 13, 31, 11, 17, 13, 19, 19, 37, 17, 23, 19, 41, 8209, 43, 23, 29, 29, 31, 31, 73, 29, 53, 31, 37, 37, 79, 0, 41, 37, 43, 43, 61, 41, 47, 43, 67, 73, 67, 47, 53, 53, 71, 79, 73, 53, 59, 59, 61, 61, 79, 59, 83, 61, 67, 67, 109, 0, 71, 67, 73, 73, 191, 71, 193, 73, 79

Offset: 1

Cheng Zhang (cz1(AT)rice.edu), Jan 28 2010, Mar 02 2010

nonn

If n mod 6 = 1, both p and q must be 2, and a(n)=0 if n + 4 is not a prime. The values of a(n) for n=257,297,353,383,557 are either greater than 176 000 or 0. Several large entries: a(87) = 2^25633 + 87, a(717) = 2^3217 + 717, a(773) = 2^2539 + 773, a(927) = 2^1117 + 927.

			a(1)=5 because 5=2^2+1 is the smallest prime of the form p^q+1. a(2)=11 because 11=3^2+2. a(3)=7, because 7=2^2+3. a(17)=8209, because 8209=2^13+17. a(31)=0, because p^q+31 cannot be a prime.

Cf. A123318, A056208, A056206, A057733, A123250, A104066, A156940, A104067, A156973

For[l = {}; n = 1, n <= 70, n++, found = False; If[Mod[n, 2] == 0, For[rm = Infinity; i = 1, i < 100, i++, For[j = 1, j < 100, j++, p = Prime[i]; q = Prime[j]; r = p^q + n; If[r >= rm, Break[], If[PrimeQ[r], rm = r; found = True]]; ]; ], (* if n is odd, r=2^q+n *) If[Mod[n, 6] == 1, r = 4 + n; If[PrimeQ[r], found = True], For[j = 1, j < 1000, j++, q = Prime[j]; r = 2^q + n; If[PrimeQ[r], found = True; rm = r; Break[]]; ]; ]; ]; If[ ! found, rm = 0]; l = Append[l, rm]; ]; l

cp's OEIS Frontend

A243429 Primes of the form 2^n + 39.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica