OFFSET
1,1
EXAMPLE
a(1)=3*1-1=2, a(2)=2+3*2-1=7.
MAPLE
Contribution from R. J. Mathar, Apr 24 2010: (Start)
A003627 := proc(n) if n <= 2 then op(n, [2, 5]) ; else for a from procname(n-1)+2 by 2 do if isprime(a) and (a mod 3) =2 then return a ; end if; end do: end if; end proc:
MATHEMATICA
Accumulate[Select[Prime[Range[100]], IntegerQ[(#+1)/3]&]] (* Harvey P. Dale, Apr 04 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 29 2010, Feb 01 2010
EXTENSIONS
Entries checked by R. J. Mathar, Apr 24 2010
STATUS
approved