Dos Programas Enigmáticos en Mathematica

Este código muestra dos programas en Mathematica que generan secuencias numéricas. El primero utiliza bucles `Do` y `While` para construir iterativamente una secuencia cuyo patrón de crecimiento depende de la posición de los elementos precedentes. El segundo programa extiende la secuencia añadiendo acumulativamente diferencias anteriores, continuando hasta que la longitud supere 50. Ambos programas destacan la capacidad de Mathematica para generar secuencias intrincadas, con algoritmos que merecen una investigación adicional.