OFFSET
1,1
LINKS
David Radcliffe, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
a[n_]:=Module[{p=1, cnt=0}, Until[cnt==n, If[Mod[Prime[p], 6n]==6n-1, cnt++]; p++]; Prime[p-1]]; Array[a, 41] (* James C. McMahon, Jun 22 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 03 2008
STATUS
approved
