a={1,3,7,9} b[n]=Prime[n]*10+a[[4-Mod[n,4]]] c(m) =if b[n] is prime then b[n].

Terms

a(0) =79a(1) =199a(2) =293a(3) =311a(4) =379a(5) =433a(6) =613a(7) =719a(8) =977a(9) =1013a(10) =1031a(11) =1097a(12) =1319a(13) =1993a(14) =2111a(15) =2239a(16) =2293a(17) =2399a(18) =2417a(19) =2713a(20) =2819a(21) =2837a(22) =3119a(23) =3137a(24) =3677a(25) =3733a(26) =4099a(27) =4339a(28) =4397a(29) =4799