OFFSET
1,1
COMMENTS
MAPLE
A145701 :=proc(n) local p; if n = 1 then return 3; end if; p := nextprime(procname(n-1)) ; while true do if isprime(p) and isprime(p+2) then if floor(sqrt(2*p)) <> floor( sqrt(2*p+4)) then return p; end if; end if; p := nextprime(p) ; end do; end proc:
for n from 1 to 80 do printf("%d, \n", A145714(n)) ; end do; # R. J. Mathar, Aug 02 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Oct 16 2008
EXTENSIONS
More terms from R. J. Mathar, Aug 02 2010
STATUS
approved