Dois Programas Enigmáticos em Mathematica

Este código apresenta dois programas em Mathematica que geram sequências numéricas. O primeiro usa loops `Do` e `While` para construir iterativamente uma sequência cujo padrão de crescimento depende da posição dos elementos precedentes. O segundo programa estende a sequência adicionando cumulativamente diferenças anteriores, continuando até que o comprimento ultrapasse 50. Ambos os programas destacam a capacidade do Mathematica em gerar sequências intrincadas, com algoritmos que merecem investigação adicional.