OFFSET
1,1
COMMENTS
The asymptotic density of this sequence is 1/6 (by Dirichlet's theorem). - Amiram Eldar, Mar 02 2021
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MAPLE
for n from 1 to 300 do p := ithprime(n) ; if (p mod 9 ) = 5 then printf("%d, ", n) ; fi; od: # R. J. Mathar, Aug 01 2009
A163595 := proc(n) option remember ; local a; if n = 1 then 3 ; else for a from procname(n-1)+1 do if ithprime(a) mod 9 = 5 then return(a) ; fi; end do: end if; end proc: seq(A163595(n), n=1..100) ; # R. J. Mathar, Oct 10 2009
MATHEMATICA
Select[Range[300], Mod[Prime[#], 9]==5&] (* Harvey P. Dale, Apr 25 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Aug 01 2009
STATUS
approved