A111210 Primes of the form (2^k - prime(k))/3.

3, 7, 17, 37, 79, 163, 183251937907, 96076792050570491, 27043212804868893898596335047829, 1772303994379887830538409413707125877, 510831846955296286119449009050103061206246374061200369

Offset: 1

Author

Roger L. Bagula, Oct 25 2005

Keywords

• nonn

Comments

Corresponding k's are 4, 5, 6, 7, 8, 9, 39, 58, 106, 122, 180, 309, 357, 696, ... - Michel Marcus, Jul 04 2021

Crossrefs

Cf. A111209.

Programs

Mathematica

a = Flatten[Table[If[PrimeQ[(2^n - Prime[n])/3] == True, (2^n - Prime[n])/3, {}], {n, 1, 100}]]
Table[ If[PrimeQ[(2^n - Prime[n])/3], (2^n - Prime[n])/3, {}], {n, 1, 200}]//Flatten (* Robert G. Wilson v, Oct 31 2005 *)

Extensions

a(9)-a(11) from Robert G. Wilson v, Oct 31 2005

Edited by N. J. A. Sloane, Nov 19 2005