OFFSET
1,1
COMMENTS
Primes in increasing order such that, for k=0,1,2,...:
a(3k+1) = primes congruent to 1 mod 3,
a(3k+2) = primes congruent to 1 mod 3,
a(3k+3) = primes congruent to 2 mod 3.
Prime analog to A147534 Numbers congruent to (1,1,2) mod 3.
MATHEMATICA
s={}; n3=1; Do[Do[If[Mod[p=Prime[n], 3]==1, AppendTo[s, p]; n1=n+1; Break[]], {n, n3, 1000}]; Do[If[Mod[p=Prime[n], 3]==1, AppendTo[s, p]; n2=n+1; Break[]], {n, n1, 1000}]; Do[If[Mod[p=Prime[n], 3]==2, AppendTo[s, p]; n3=n+1; Break[]], {n, n2, 1000}], {55}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 08 2008
STATUS
approved