A145483 Primes p such that 2p - 23 is prime.

13, 17, 23, 41, 47, 53, 101, 107, 131, 137, 167, 191, 227, 233, 251, 257, 263, 293, 311, 353, 383, 431, 443, 467, 503, 521, 557, 563, 587, 593, 641, 653, 761, 773, 797, 821, 947, 977, 1013, 1031, 1061, 1181, 1187, 1217, 1223, 1277, 1283, 1301, 1307, 1361

Offset

1,1

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Formula

a(n) = 2*A145477(n) - 23.

Mathematica

aa = {}; k = 23; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, k + Prime[n])/2]], {n, 1, 500}]; aa
(* Second program: *)
Select[Prime@ Range@ 240, And[PrimeQ@ #, # > 0] &[2 # - 23] &] (* Michael De Vlieger, Jan 23 2017 *)

Crossrefs

Cf. A063908-A063913, A092109, A145471-A145490.

Sequence in context: A240894 A244078 A126143 * A349978 A125262 A163754

Adjacent sequences: A145480 A145481 A145482 * A145484 A145485 A145486

Keyword

nonn

Author

Artur Jasinski, Oct 11 2008

Status

approved