MC: Ping-Pong Cubes

[Didier Lachieze]

(05-22-2018 03:16 PM)Joe Horn Wrote:  Your mini-challenge, should you choose to accept it, is to write an HP calculator program that finds the first ten Ping-Pong Cubes. Don't worry; the 10th one is not very large.

A much bigger challenge, which has eluded me thus far, is to find the 11th Ping-Pong Cube. It must be very large, if it even exists.

On the Prime the following program will solve the mini-challenge:

Code:

EXPORT PPCube()
BEGIN
 PRINT();
 FOR N FROM 10 TO 10000 DO
  IF ΠLIST(CONCAT(ΔLIST(ASC(STRING(N,1))),ΔLIST(ASC(STRING(N^3,1)))) MOD 2) THEN PRINT(N); END;
 END;
END;