Estoy codificando la secuencia como se describe en A127824 usando VBA. Estoy incorporando la lógica de un código Java en Java . mi código es:

 Sub A127824() Dim i, n, m n = 0 i = 0 Do While i <= 12 If n = 0 Then Debug.Print i, 1 n = n + 1 i = i + 1 GoTo x1 Else x1: If (n - 4) Mod 6 <> 0 Then Debug.Print i, 2 * n n = 2 * n i = i + 1 If i > 12 Then Exit Sub GoTo x1 Else If (n - 1) / 3 <> 1 Then Debug.Print i, (n - 1) / 3, 2 * n n = (n - 1) / 3 m = 2 * n i = i + 1 If i > 12 Then Exit Sub Else Debug.Print i, 2 * n n = 2 * n i = i + 1 If i > 12 Then Exit Sub GoTo x1: End If End If End If Loop End Sub

Pero mi tabla de salida es parcial en comparación con la tabla en el enlace OIES en "EJEMPLO".

Buscando ayuda para dar salida a los elementos que faltan. Creo que se necesita una recursión, pero no he podido resolverlo.