Desafío de programación

Hola, encontré el siguiente problema y estuve intentando resolverlo, simplemente como desafío, para aprender a programar mejor.

El problema dice:

Dar el número de enteros positivos no mayores a 1100 y que no son divisibles por ninguno de los primeros 25 números primos.

Hay un par de programas que en conjunto, si se tiene instalada la biblioteca Goferlists, sirven para encontrar números primos, los saqué de http://groups.google.com/group/comp.sys.hp48/topics">comp.sys.hp48:

1)Programa SIEVE: este programa es raro porque dentro del mismo programa tiene una llamada a sí mismo cosa que no creía que fuese posible, pero funciona.

«
  IF DUP Null NOT
  THEN DUP Head  P
    « Tail
      « P MOD 0. ‹
      » Filter SIEVE P SWAP +
    »
  END
»

En este programa los comandos Null, Head, Tail y Filter pertenecen a la biblioteca Goferlists 1.0, al igual que el comando Seq del programa de abajo.

2)Programa PRIME: este trabaja teniendo al programa anterior en la variable SIEVE

« 2 SWAP 1 Seq SIEVE
»

Ejecutando 100 PRIME se obtiene una lista de todos los números primos entre 1 y 100 que son justamente los primeros 25 números primos:

{ 2 3 5 7 11 13 17 19 23 29 31
37 41 43 47 53 59 61 67 71 73 79
83 89 97 }

Hasta acá tenemos la lista de los primeros 25 números primos, pero aún falta todo lo demás!! Intenté hacerlo usando WHILE REPEAT END con algunos IF THEN ELSE adentro pero estoy perdido, les dejo lo que programé. Esto se queda ciclando como loco en el emulador y no llega a nada concreto, lo que no es extraño, ya que además de mi falta de talento natural, jamás tomé un curso de programación de nada y solo se lo que leí de los foros y manuales

« 1 LISTAP 1 0  An P PosP N
  «
    WHILE An 1100 ‰ @lo que no se ve bien es el símbolo menor o igual
    REPEAT An P PosP GET / FP 0
==
      IF
      THEN An 1100 <
        IF
        THEN 1 'An' STO+ 1 'PosP' STO
        END
      ELSE PosP 25 ==
        IF
        THEN 1 'N' STO+ An 1100
<
          IF
          THEN 1 'An' STO+
          END
        ELSE 'PosP' 1 STO+
        END
      END
    END N
  »
»

En el código de arriba, LISTAP es una variable donde está guardada la lista de los primeros 25 números primos.

¿Alguien tiene una idea de como hacer esto?
Sin usar la biblioteca Goferlists ni los programas anteriores sería glorioso, pero aunque sea partiendo de esos programas estaría bueno que un Adicto con conocimiento lo plantee, para aprender.

Saludos.

PD: Dejo adjunto un diagrama de flujo acerca de como pense resolver esto, más allá que pensarlo y programarlo son cosas diferentes!

Actualización: para la lista de números primos se me ocurrió este que es mucho más rápido y no necesita de bibliotecas externas:

« 1. { } 0.  A L S
  «
    WHILE S 25. <
    REPEAT A ISPRIME?
      IF
      THEN L A + DUP 'L' STO
SIZE 'S' STO 1. 'A' STO+
      ELSE 1. 'A' STO+
      END
    END L
  »
»