Feladat a HPmuseum.org fórumáról, amellyel a Számológép Fórumon is külön topik foglalkozik:
Keresünk egy olyan ötjegyű, P = ABCDE prímszámot, melyre igaz, hogy P = A! + B! + C! + D! + E! + A + B + C + D + E.
Megoldás Casio FX-7400G programozható grafikus zsebszámológépre:
Prog "FELADAT"
ClrText
0 -> I
{1,3,7 -> List 2
For 1 -> A To 8
For 0 -> B To 8
For 0 -> C To 8
For 0 -> D To 8
For 1 -> K To 3
List 2[K] -> E
9999A + 999B + 99C + 9D = A! + B! + C! + D! + E!
=> Prog "PRIMKER"
Next
Next
Next
Next
Next
Prog "PRIMKER"
"OSSZEG OK"
I + 1 -> I
10000A + 1000B + 100C + 10D + E -> P
1 -> M
1 -> T
Lbl 1
M + 1 -> M
Frac (P/M) = 0 => 0 -> T
(T=1)(M<400 => Goto 1
If T = 1
Then "MEGVAN"
P
IfEnd
Return
