%mathpiper,def="ProductPrimesTo257"

/// Product of small primes <= 257. Computed only once.
LocalSymbols(p, q)
[
	// p:= 1;
	ProductPrimesTo257() := 2*3*[
		If(
			IsInteger(p),
			p,
			p := Product(Select( 5 .. 257, {{q}, Modulo(q^2,24)=1 And IsSmallPrime(q)}))
		);
//		p;
	];
];

%/mathpiper