A099389 Subsequence of primes in sequence b(n) = 3*prime(n) - prime(n+1) - 3 (A100021).

5, 7, 17, 19, 29, 31, 37, 53, 53, 67, 79, 97, 113, 113, 127, 137, 137, 151, 157, 167, 197, 199, 211, 269, 293, 293, 337, 353, 349, 379, 389, 383, 439, 449, 457, 547, 557, 569, 607, 617, 619, 617, 653, 661, 691, 751, 757, 787, 829, 857, 857, 877, 887, 907, 919

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[3#[[1]]-#[[2]]-3&/@Partition[Prime[Range[100]], 2, 1], PrimeQ] (* Harvey P. Dale, Oct 13 2018 *)

Prog

(PARI) for(n=1, 91, if(isprime(k=3*prime(n)-prime(n+1)-3), print1(k, ", ")))

Crossrefs

Cf. A100021, A099382.

Sequence in context: A045318 A040102 A100021 * A099382 A163633 A092242

Adjacent sequences: A099386 A099387 A099388 * A099390 A099391 A099392

Keyword

nonn,less,easy

Author

Giovanni Teofilatto, Nov 17 2004

Extensions

Edited and extended by Klaus Brockhaus, Nov 19 2004

Status

approved