OFFSET
1,1
EXAMPLE
a(1)=3, a(2)=5, a(3)=7 and a(4)=5 because 3*3 < 2*5 < 2*(5+2) < 3*(3+2), i.e., 9 < 10 < 14 < 15.
MAPLE
A001359 := proc(n) option remember; if n = 1 then 3; else for a from procname(n-1)+2 by 2 do if isprime(a) and isprime(a+2) then return a; end if; end do: end if; end proc:
isA001359 := proc(n) isprime(n) and isprime(n+2) ; end proc:
for n from 1 to 400 do q := A001359(n) ; for twop from 3*q+1 to 3*q+2 by 2 do p := twop/2 ; if isA001359(p) and twop+2 < 3*q+6 then printf("%d, %d, %d, %d, ", q, p, p+2, q+2) ; end if; end do: end do: # R. J. Mathar, May 10 2010
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Juri-Stepan Gerasimov, May 08 2010
EXTENSIONS
More terms from R. J. Mathar and D. S. McNeil, May 10 2010
STATUS
approved