OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000
MAPLE
select(isprime, [3*ithprime(p)+4$p=1..120]); # Muniru A Asiru, Mar 23 2019
MATHEMATICA
Select[Table[p=Prime[n]; 3p+4, {n, 85}], PrimeQ]
PROG
(Magma) [a: p in PrimesUpTo(600) | IsPrime(a) where a is 3*p+4];
(GAP) P:=Filtered([1..1000], IsPrime);;
a:=Filtered(List(P, i->3*i+4), k->IsPrime(k)); # Muniru A Asiru, Mar 23 2019
(PARI) terms(n) = my(x=0, i=0); forprime(p=1, , if(i >= n, break); x=3*p+4; if(ispseudoprime(x), print1(x, ", "); i++))
/* Print initial 50 terms as follows: */
terms(50) \\ Felix Fröhlich, Mar 23 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Mar 12 2019
STATUS
approved