A136192 Primes p such that 2p-3 and 2p+3 are both prime (A092110), with last decimal of p being 7.
7, 17, 67, 97, 127, 137, 157, 167, 487, 547, 617, 647, 937, 1187, 1277, 1427, 1627, 1847, 2027, 2297, 2437, 2467, 2477, 2617, 2857, 2927, 3137, 3457, 3727, 4007, 4057, 4157, 5167, 5417, 5657, 6247, 6257, 7027, 7477, 7867, 8467, 8737, 8747, 9127, 9227
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
bpQ[n_]:=Last[IntegerDigits[n]]==7&&And@@PrimeQ[2n+{3,-3}]; Select[Prime[ Range[1200]],bpQ] (* Harvey P. Dale, Sep 25 2013 *)
Extensions
Definition clarified by Harvey P. Dale, Sep 25 2013
Comments