06-04-2014, 09:36 AM

The programme tests whether an input positive integer is prime or the power of a prime. If input is composite "0" is returned, if not the prime of which the input is an integral power.

1 LBL 'PPT'

2 STO 07

3 SIGN

4 STO 06

5 RCL 07

6 STO 08

7 SIGN

8 STO+ 06

9 RCL 06

10 RCL 07

11 ENTER

12 BASE 10

13 ^MOD

14 DECM

15 RCL- 06

16 RCL 07

17 GCD

18 STO 07

19 DEC X

20 x=0?

21 RTN

22 RCL 07

23 PRIME?

24 SKIP 001

25 BACK 020

26 RCL 08

27 ENTER

28 R↓

29 RCL/ Y

30 1

31 x<? Y

32 BACK 004

33 x≠? Y

34 CLx

35 RCL* Z

36 END

1 LBL 'PPT'

2 STO 07

3 SIGN

4 STO 06

5 RCL 07

6 STO 08

7 SIGN

8 STO+ 06

9 RCL 06

10 RCL 07

11 ENTER

12 BASE 10

13 ^MOD

14 DECM

15 RCL- 06

16 RCL 07

17 GCD

18 STO 07

19 DEC X

20 x=0?

21 RTN

22 RCL 07

23 PRIME?

24 SKIP 001

25 BACK 020

26 RCL 08

27 ENTER

28 R↓

29 RCL/ Y

30 1

31 x<? Y

32 BACK 004

33 x≠? Y

34 CLx

35 RCL* Z

36 END