1,1
a = {}; Do[If[PrimeQ[8 n + 1] && PrimeQ[8 n + 3] && PrimeQ[n], AppendTo[a, n]], {n, 1, 10000}]; a
Cf. A125822.
Adjacent sequences: A139399 A139400 A139401 this_sequence A139403 A139404 A139405
Sequence in context: A027361 A101971 A049774 this_sequence A143382 A057219 A084869
nonn
Artur Jasinski (grafix(AT)csl.pl), Apr 19 2008
Search completed in 0.002 seconds