%I
%S 3,11,17,41,59,83,109,157,179,211,241,283,331,367,401,461,509,563,587,
%T 617,709,773,797,877,919,991,1031,1087,1153,1201,1217,1409,1433,1471,
%U 1499,1597,1621,1723,1741,1823,1847,2027,2063,2099,2221,2341,2351,2417,2477
%N Primeindexed primes as n runs through the integers congruent to 0 or 1 mod 3.
%F a(n) = A006450(A032766(n)).
%t C0=Floor[3*Log[2]*n/(2*Log[2])] g[n_]:=Prime[Prime[C0]] digits=200 b=Table[g[n], {n, 2, digits}]
%Y Cf. A100566.
%K nonn
%O 1,1
%A _Roger L. Bagula_, Nov 28 2004
