OFFSET
1,1
EXAMPLE
a(1)=7 because 5*2 - 3 = 3*3 - 2;
a(2)=19 because 11*2 - 3 = 7*3 - 2.
MAPLE
isA169605 := proc(x) if type(x+3, 'even') then if (x+2) mod 3 = 0 then isprime( (x+3)/2) and isprime((x+2)/3) ; else false ; end if else false; end if; end proc: for x from 1 to 10000 do if isA169605(x) then printf("%d, ", x) ; end if; end do: # R. J. Mathar, Jan 27 2010
MATHEMATICA
Select[3Prime[Range[250]]-2, PrimeQ[(3+#)/2]&] (* Harvey P. Dale, May 11 2011 *)
PROG
(Sage)
is_prime_Q = lambda x: x.is_integral() and Integer(x).is_prime()
A169605 = list(x for x in range(1, 10**4) if is_prime_Q((x+3)/2) and
is_prime_Q((x+2)/3))
A169605[:36]
# D. S. McNeil, Dec 21 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Dec 03 2009
EXTENSIONS
Corrected and extended by Jim Nastos and D. S. McNeil, Dec 21 2009
A few more terms from R. J. Mathar, Jan 27 2010
STATUS
approved