(50g) OEIS A028842: Product of Digits is a Prime

[Gerald H]

Brilliant, Joe! Thank you.

Resulting in the programme below.

The round off error will not be relevant in this programme as 50g has too little memory to find 20,000 digit numbers.

Code:

« DUP 2. / √ DUP 0.
RND 4. * SWAP .5 +
FP OVER * CEIL 10
ROT 4 / R→I ^ 1 - 9
/ SWAP 4. IDIV2 DUP
{ DUP 3. == { DROP
4 } IFT } { DROP 1.
- 6 } IFTE 10 ROT
R→I ^ * + SWAP DROP
»