Find largest left truncatable prime in a given base: Difference between revisions

Content added Content deleted
Line 323: Line 323:
GO TO 1 !And seek further.
GO TO 1 !And seek further.
END IF !One could insted prepare some values, the primes being well-known.
END IF !One could insted prepare some values, the primes being well-known.
WRITE (MSG,2) LBASE,NS,START(1:NS) !But, paramaterisation is easy enough.
WRITE (MSG,2) LBASE,NS,START(1:NS) !But, parameterisation is easy enough.
2 FORMAT ("Working in bases 2 to ",I0," there are ",I0, !Announce the known.
2 FORMAT ("Working in bases 2 to ",I0," there are ",I0, !Announce the known.
* " single-digit primes: ",666(I0:", ")) !The : sez stop if the list is exhausted.
* " single-digit primes: ",666(I0:", ")) !The : sez stop if the list is exhausted.
Retrieved from "https://rosettacode.org/wiki/Find_largest_left_truncatable_prime_in_a_given_base"