Here is another candidate "like fpp" tacit function:
close=: ((i. <./)@:|@:- { ]) ,
pow1=: >:@[EMAIL PROTECTED]@>.@(3&^.)
tpp0=:[EMAIL PROTECTED]:@close 4&p:,(4&p:@^ [EMAIL PROTECTED]) ^&x: pow1
tpp=:3 >. [: tpp0"0 1: >. <:
Basically, I've tossed some unneeded steps from my
previous efforts, and taken advantage of the fact
that I'm always looking for a successor prime.
This puts me in the general vicinity of where R.E.Boss
was, last Friday...
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
