OFFSET
1,1
COMMENTS
Primes p such that A(2*p) - 3*A(p) = 3 (7, 31, 661, 811, 2551, ...) and primes p such that 7*A(p) - A(2*p) = 21 (19, 139, 619, 1429, ...), where A=A288814, are both subsequences of A038869. - David James Sycamore, Aug 07 2017
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
MATHEMATICA
Transpose[Select[Partition[Prime[Range[1200]], 2, 1], #[[2]]-#[[1]]==2 && PrimeQ[2#[[2]]-1]&]][[2]] (* Harvey P. Dale, Jun 19 2014 *)
PROG
(Magma)[n: n in [0..10000]|IsPrime(n) and IsPrime(n-2) and IsPrime(2*n-1)] // Vincenzo Librandi, Dec 18 2010
(PARI) is(n)=n%6==1 && isprime(n-2) && isprime(n) && isprime(2*n-1) \\ Charles R Greathouse IV, Aug 09 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved