OFFSET
1,1
COMMENTS
This sequence is interesting because of the comments in A258233: for n > 1, if 3 * prime(n) - 4 is prime then A258233(n) = 1 + A071704(n), otherwise A258233 (n) = A071704(n). - Zak Seidov, Jun 04 2015
Subsequence of primes of A228121. - Michel Marcus, May 30 2015
EXAMPLE
3 * 2 - 4 = 2, 3 * 3 - 4 = 5, 3 * 5 - 4 = 11, 3 * 7 - 4 = 17, 3 * 11 - 4 = 29 are all prime, so 2, 3, 5, 7, 11 are all in the sequence.
3 * 13 - 4 = 35 = 5 * 7, so 13 is not in the sequence.
MATHEMATICA
Select[Prime[Range[200]], PrimeQ[3# - 4] &]
PROG
(Magma) [p: p in PrimesUpTo(1000) | IsPrime(3*p-4)]; // Vincenzo Librandi, May 25 2015
(PARI) forprime(p=1, 10^3, if(isprime(3*p-4), print1(p, ", "))) \\ Derek Orr, May 27 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, May 24 2015
STATUS
approved