jueves, 18 de mayo de 2017

Sumas anagramáticas


En mi cuenta de Twitter, @connumeros, publiqué el 6/4/17 la siguiente identidad, que mi hijo Juan Luis, @juanlroldan, calificó de anagramática:

6417=4671+1746

En ella los dos sumandos poseen los mismos dígitos que el resultado. Esto está ya estudiado y publicado en http://oeis.org/A203024:

Numbers a = b + c where a, b, and c contain the same decimal digits.

0, 954, 2961, 4932, 5013, 5022, 5031, 5238, 5823, 6147, 6417, 7614, 7641, 8235, 8523, 9045, 9108, 9180, 9324, 9504, 9540, 9594, 9612, 9684, 9774, 9864, 9954, 20961, 21150, 21501, 24831, 24921, 25011, 26901, 27810, 28107, 28314, 29016, 29214, 29610, 29691, 29961

Lo que nos interesa aquí es la forma de conseguirlo con hoja de cálculo. No esperéis, por tanto, teoría matemática. Quienes no disfrutéis con la programación podéis dejar de leer esta entrada.

¿Qué necesitamos para reproducir y ampliar esta lista?

Si nos inspiramos en el código PARI de Charles R Greathouse IV incluido en la página citada, la estrategia podría ser la siguiente:

1) Para cada número dado, intentamos construir el más pequeño posible con sus mismos dígitos. Por ejemplo, para 36621 deberíamos poder construir 12366 de forma automática. Llamaremos digiordenado a la función que consiga esto. Así digiordenado(36621)=12366

Con ello logramos dos cosas: conseguir el sumando menor posible y tener un elemento de comparación anagramático. Si dos números coinciden en sus valores mediante digiordenado, es que son anagrama uno de otro.

2) Una vez obtenido el conjunto ordenado de dígitos, bastará comenzar a probar el primer sumando y comprobar si los tres, total y dos sumandos, son anagramáticos.

Función DIGIORDENADO

Para construir la función citada sobre un número N deberemos

* Extraer los dígitos de la cadena N
* Ordenarlos
* Reconstruir de nuevo un número D, que será el valor de digiordenado(N).

Extracción de cifras

Existen varios métodos para extraer cifras de un número N expresado en el sistema de numeración decimal (o en otro cualquiera cambiando 10 por la base). Elegimos el de truncar los cocientes de N entre 10r y 10r+1, este último multiplicado por 10. Por ejemplo, para extraer el 5 del número 34521 deberíamos calcular:

Int(34521/100)-10*Int(34521/1000) = 345 – 10*34 = 345-340 = 5

También podíamos haber convertido N en una cadena y después extraer los caracteres de esa cadena. Así se efectúa en PARI, pero nos ha parecido mejor no acudir a cadenas.

En el listado de más abajo puedes estudiar su aplicación a nuestro problema.

Ordenación

Vamos a trabajar con pocos dígitos, por lo que el método de ordenación elegido no es relevante. Nos hemos decidido por el de “burbuja”, que es bastante comprensible. Puedes consultar

https://es.wikipedia.org/wiki/Ordenamiento_de_burbuja

Reconstrucción

Para reconstruir el número de nuevo multiplicamos y sumamos, en lugar de las operaciones de  dividir y restar de la extracción. Por ejemplo, para reconstruir las cifras 2, 3, 7 calcularíamos:

0*10+2=2
2*10+3=23
23*10+7=237

Aunque es un proceso sencillo, no es trivial, por lo que merece la pena que lo estudies.

Estas tres técnicas las tienes integradas en la función digiordenado:

Public Function digiordenado(n)
'Aplicable solo a números naturales de al menos dos cifras

Dim l, i, j
Dim c
Dim ci(10)

‘Calcula el número de cifras
l =  Int(Log(n) / Log(10) + 1)
'Extrae las cifras y las deposita en la matriz ci(i)
For i = 1 To l
c = 10 ^ (i - 1)
ci(i) = Int(n / c) - 10 * Int(n / c / 10)
Next i
'Ordena las cifras por el método de la burbuja
For i = 1 To l
For j = 1 To l - 1
If ci(j) > ci(j + 1) Then c = ci(j): ci(j) = ci(j + 1): ci(j + 1) = c
Next j
Next i
'Acumula de nuevo las cifras para obtener digiordenado
c = 0
For i = 1 To l
c = c * 10 + ci(i)
Next i
digiordenado = c
End Function

Suma anagramática

Ya sabemos construir un número con los dígitos ordenados de otro. Podemos retroceder a nuestra cuestión primera, que son las sumas del tipo

6417=4671+1746

Para cada número, obtenemos su “digiordenado”, que en este caso sería 1467, primer valor a probar como primer sumando, hasta llegar a 6417/2. Para cada sumando S comprobamos si coincide en dígitos con el número total N, mediante la igualdad digiordenado(S)=digiordenado(N). En caso afirmativo repetimos la comprobación con N-S. Si los tres coinciden en sus dígitos, hemos encontrado una suma anagramática.

A continuación lo presentamos en forma de función. Le daremos como tipo de variable el de texto, para que así el resultado sea “NO” en el caso de no admitir la descomposición y la concatenación de los sumandos si existe una descomposición de ese tipo. En el ejemplo resultaría “ 4671 1746”

Function anagram$(n) ‘Función tipo texto
Dim a, b, c
Dim anag$

anag = "NO" ‘En principio no se espera un resultado positivo
a = digiordenado(n) ‘se busca el menor número con los dígitos dados
b = a
While b <= n / 2 And anag = "NO" ‘b recorre desde a hasta n/2
c = n – b
‘Prueba de identidad de dígitos
If digiordenado(b) = a And digiordenado(c) = a Then anag = Str$(b) + Str$(c)
‘En caso positivo se concatenan los sumandos
b = b + 1
Wend
anagram = anag
End Function

Podemos aplicar este test a varios números:



Comprobamos que los que figuran en la lista de los primeros párrafos dan como resultado los dos sumandos y los que no están devuelven un “NO”.

Búsqueda de sumas anagramáticas

Con las funciones presentadas podemos, mediante un bucle FOR-NEXT, encontrar todas las incluidas en un intervalo de números dado. Como ya están publicados en http://oeis.org/A203024 los primeros casos hasta 29961=12969+16992, podíamos intentar encontrar los siguientes, que resultan ser 30168=13860+16308 y 30186=13806+16380, y así podíamos seguir. El proceso es muy lento, y habrá que dejar al ordenador trabajando solo.

Búsqueda de sumandos anagramáticos

Podíamos rebajar las exigencias, y en lugar de buscar la identidad de dígitos entre suma y sumandos, prescindir del total y buscar sólo la igualdad entre sumandos. En este caso resultarían muchos más números. Deberemos exigir, para eliminar soluciones triviales, que los sumandos sean distintos. También hay que tener en cuenta los que comienzan por un cero, que no suele aparecer en el resultado, a los que también eliminaremos. Con estas condiciones, los primeros números de este tipo son: 303=102+201, 310=119+191, 321=129+192, 330=120+ 210,...

Es lógico pensar en otra posibilidad, y es que los dígitos del total coincidan con un sumando al menos. Si prescindimos de ceros iniciales, los primeros casos resultantes son: 31=13+18, 41= 14+27, 51=15+36,…No parecen tener interés.

lunes, 8 de mayo de 2017

Números piramidales (3) Cuadrados

Esta es la tercera entrada de la serie. Si deseas, puedes leer las anteriores, publicadas en las direcciones

http://hojaynumeros.blogspot.com.es/2017/03/numeros-piramidales1-definiciones-y.html

http://hojaynumeros.blogspot.com.es/2017/04/numeros-piramidales-2-tetraedros.html


Hoy nos dedicaremos al estudio de los números piramidales cuadrangulares, o “pirámides cuadradas”, que se forman al apilar números cuadrados consecutivos.

Puedes hacerte una idea con las imágenes y definiciones contenidas en Wikipedia


https://es.wikipedia.org/wiki/N%C3%BAmero_piramidal_cuadrado

Los primeros números piramidales cuadrados son:

0, 1, 5, 14, 30, 55, 91, 140, 204, 285, 385, 506, 650, 819, 1015, 1240, 1496, 1785, 2109, 2470, 2870, 3311, 3795, 4324, 4900, 5525, 6201, 6930, 7714, 8555, 9455,…

(http://oeis.org/A000330)

Según su definición, cada piramidal cuadrado será equivalente a la suma 1+4+9+16+…, pero se conoce, y es muy popular, la fórmula de la suma de los n primeros cuadrados, que es igual a n*(n+1)*(2*n+1)/6, luego, si llamamos PCUAD(n) al enésimo piramidal cuadrado tendremos:


Si descomponemos 2n+1 en (n+2)+(n-1) resulta


Al igual que un cuadrado se descompone en dos triángulos consecutivos, aquí serían dos tetraedros: Todo número piramidal cuadrado es suma de dos piramidales triangulares consecutivos.

Lo podemos comprobar con nuestra calculadora especializada calcupol, que puedes descargar desde

http://www.hojamat.es/sindecimales/aritmetica/herramientas/herrarit.htm#figurados

Elegimos n=9 y con la calculadora vamos obteniendo:

Secuencia de teclas: 4 PIR 9 =, y nos da el piramidal cuadrado 285



Con la secuencia 3 PIR 9 = obtenemos la pirámide triangular 165, y con 3 PIR 8 =, la anterior, 120, y se verifica que 165+120=285.

Si recordamos que los piramidales triangulares (tetraedros) son suma de triangulares y los piramidales cuadrados suma de cuadrados, en hoja de cálculo queda



Aquí vemos que los números triangulares engendran las pirámides triangulares, que si sumamos por filas, cada dos triangulares forman un cuadrado, y su suma el piramidal pedido. Al final,  dos pirámides triangulares consecutivas suman la cuadrangular correspondiente. Merece la pena estudiar con detalle el esquema de cálculo.

Otra forma de generar piramidales cuadrados a partir de los triangulares es el cálculo mediante esta fórmula:

Basta desarrollar:

((2n+2)(2n+1)2n)/(6*4)=n(n+1)(2n+1)/6, que es la fórmula usual, según vimos más arriba.

En este tipo de propiedades se basa esta otra generación de piramidales cuadrados (ver http://oeis.org/A000330). Formamos un triángulo como el del esquema, que está construido sobre n=5. Se entiende fácilmente:
  1
  1  2
  1  2  3
  1  2  3  4
  1  2  3  4  5
  1  2  3  4
  1  2  3
  1  2
  1

Hemos situado un 1 en una base de 2*5-1 elementos, un 2, en la siguiente de 2*5-3, después un 3 2*5-5 veces, y así hasta llegar a un 5. Lo que propone este esquema es que

Se puede demostrar por inducción recorriendo el esquema: PCUAD(1)=1, PCUAD(2)=1+1+1+2=5=1+4, PCUAD(3)=1+1+1+1+1+2+2+2+3=14=1+4+9

Se generan así 1, 5 y 14, los primeros piramidales. Para demostarlo para n+1 suponiéndolo correcto para n, bastará considerar, por definición, que los sumandos nuevos al ampliar el esquema de n a n+1 son:

1+(1+2)+(2+3)+(3+4)+(4+5)+…(n+n+1)=1+3+5+7+…2n+1=(n+1)^2, luego si se incrementa en un cuadrado, dará lugar al siguiente piramidal cuadrado, lo que completa la demostración.

Se puede dar otra interpretación a esta fórmula, y es que representa la suma de la función MÍNIMO a todos los pares formados por el conjunto 1..n consigo mismo. Para entenderlo lo construimos para n=5



En el esquema se han situado los mínimos de cada par fila-columna en la celda correspondiente, y hemos reproducido el esquema de más arriba: el 1 se repite 9 veces, el 2, 7 veces, el 3, 5…y así hasta el último 5 que se repite una vez. Coincide, por tanto, con la fórmula explicada. Por eso, en la última fila aparecen los piramidales cuadrados (Enrique Pérez Herrero, Jan 15 2013)

Esta generación la usaremos más adelante.

Curiosidades

Cuadrados que se ven en una cuadrícula.

Un acertijo muy popular consiste en saber ver todos los cuadrados contenidos en una cuadrícula también cuadrada.



Para n=1 se ve 1 cuadrado, para n=2, 5 cuadrados, para n=3, 14, luego son números piramidales cuadrangulares. Lo vemos: En la cuadrícula de la imagen hay 36 cuadrados de una unidad, y de 2 unidades ha de haber 25, ya que se puede duplicar o copiar de cinco formas distintas por filas o por columnas, y así, el de tres unidades se copia 3*3=9 veces, hasta que llegamos al total del que sólo existe una copia, luego S=36+25+16+9+4+1=91, que es la sexta pirámide cuadrangular.

Permutaciones con el tercer elemento mayor o igual

Los números piramidales cuadrados coinciden también con las variaciones de n elementos tomados de 3 en 3 con repetición, considerando tan solo aquellas en las que el tercer elemento es mayor o igual que los anteriores. En efecto, basta descomponer las variaciones binarias en conjuntos según el máximo valor de sus elementos. Lo aclaramos con un ejemplo. Imagina las variaciones binarias de 6 elementos, 36 en total:



A cada una le hemos adosado el máximo valor que presenta. Tenemos 9 con el máximo 5, a las que solo podemos adosar como tercer elemento otro 5. Después vemos 7 con máximo 4, que admiten una ampliación con 2 elementos, el 4 y el 5. Para el 3 como máximo se presentan 5 arreglos y se pueden ampliar con 3, 4 y 5. Resumiendo, los posibles arreglos de tres elementos en los que el tercero sea mayor o igual que los otros vendrán dados por este cálculo:

9*1+7*2+5*3+3*4+1*5=9+14+15+12+5=55=1+4+9+16+25. Nos ha resultado PCUAD(5)

No hay nada sorprendente en esto, ya que hemos reproducido la fórmula que demostramos más arriba:

Con nuestra hoja Cartesius puedes comprobarlo

http://www.hojamat.es/sindecimales/combinatoria/herramientas/herrcomb.htm#cartesius

Basta escribir las condiciones (en el ejemplo para n=5)



Obtendrás 55 para n=5. Puedes ir cambiando xt=1..5 por otro intervalo y obtendrás el número piramidal correspondiente.

Suma de productos de cuadrados

Terminamos la entrada con otra propiedad curiosa, y es que el piramidal PCUAD(n) es la raíz cuadrada de la suma de todos los cuadrados (i*j)^2 en los que tanto i como j recorren los valores 1,2..n. Lo puedes estudiar en este esquema:



En él hemos construido todos los cuadrados y hemos sumado los valores inferiores a cada n en la fila de abajo. Se destaca en color el caso n=5 para que lo sigas mejor. Al extraer la raíz cuadrada en la parte inferior resultan los primeros piramidales cuadrados.

No es difícil razonarlo. Recorre la primera columna de las sumas, por ejemplo la que tiene fondo de color. Sus sumandos 1+4+9+16+25 forman el piramidal cuadrado 55. La segunda equivale a la primera multiplicada por 4, luego su suma será 55*4, y las siguientes 55*9, 55*16 y 55*25. Si sacamos factor común en las sumas resultará 55(1+4+9+16+25)=55*55, luego su raíz cuadrada será el piramidal pedido.

De igual forma se puede razonar que si tomamos productos triples (i*j*k)^3, su raíz cúbica será también igual al piramidal cuadrado correspondiente.

Para terminar, una curiosidad: el único piramidal cuadrado que a su vez es un cuadrado es el 4900.

jueves, 27 de abril de 2017

Curiosidades con cifras a trozos


Hace unas semanas se publicó en Twitter la siguiente curiosidad:


Al resolverla he tenido la idea de buscar situaciones semejantes que se puedan resolver con hoja de cálculo, que es lo nuestro, o con PARI, que permite más velocidad en las búsquedas. Para ello necesitaré la función TROZOCIFRAS, que extrae un grupo de cifras de la expresión decimal de un número. Deberá tener tres parámetros. Así, TROZOCIFRAS(m;n;p)  extraerá en las cifras del número m aquellas que comienzan en el número de orden n y terminen en p. Por ejemplo, TROZOCIFRAS(28732;2;4)=873. Hay que advertir que se cuentan las cifras de derecha a izquierda. Así, TROZOCIFRAS(876253;1;5)=76253.

Esta función necesita para su funcionamiento otra, NUMCIFRAS(m), función que nos cuenta las cifras de un número natural. Dejamos los listados de TROZOCIFRAS y NUMCIFRAS para el Anexo de esta entrada. Hemos suprimido, por brevedad, la condición de que m sea natural. Puedes copiarlos en la sección de funciones y macros de tu hoja de cálculo.

Con estas dos funciones, la condición del acertijo se expresaría como

If Sqr(trozocifras(m;2;3))+trozocifras(m;1;1)=sqr(m) then print(m)

Lo aplicamos a números de tres cifras, para no tener que añadir más condiciones, y al recorrer desde 100 hasta 999 aparece la solución, 169, que cumple que RAIZ(169)=RAIZ(16)+9=4+9=13

Podemos escribir:

For m=100 to 999
If Sqr(trozocifras(m;2;3))+trozocifras(m;1;1)=sqr(m) then print(m)
Next m

Prueba algo similar con cuatro cifras. Si las descompones en grupos de dos, no existe ninguna propiedad similar, es decir:


Tampoco parece existir solución para 


Hay más posibilidades y con mayor número de cifras. Lo dejamos abierto.

En el lenguaje PARI la función TROZOCIFRAS queda como 

cutdigit(a, p, q)=(a%10^q)\10^(p-1)

y la búsqueda

cutdigit(a, p, q)=(a%10^q)\10^(p-1)
for(n=100, 999, if(sqrt(cutdigit(n, 2, 3))+cutdigit(n, 1, 1)==sqrt(n), print(n)))

Comprobamos que encuentra el 169



Otra adivinanza

¿Existe algún número de tres cifras ABC que cumpla que ABC=AB*C+A*BC? 

Si no deseas ver la solución, no sigas leyendo e intenta tú una búsqueda.

Bastará complicar un poco las condiciones anteriores, por ejemplo, así:

For m=100 to 999
If trozocifras(m;2;3)*trozocifras(m;1;1)+trozocifras(m;3;3)*trozocifras(m;1;2)=m then print(m)
Next m

Hemos encontrado así la solución única, que resulta ser 655, ya que 65*5+6*55=325+330=655. Puedes intentarlo con PARI.

Juego de las matrículas

En este invierno, Joseángel Murcia, @tocamates propuso en Twitter un juego de encontrar en nuestros paseos matrículas españolas (cuatro dígitos) en los que los dos últimos formaran el producto de los dos primeros. La cuestión era más lúdica que matemática, pero con nuestra función TROZOCIFRAS se puede conseguir un listado. Basta plantear la condición

For m=1000 to 9999
If trozocifras(m;1;2)=trozocifras(m;4;4)*trozocifras(m;3;3) then print(m)
Next m

Estos son, por ejemplo, los que comienzan en 3 y cumplen la condición:


Evidentemente, esto no tiene más valor que el de un ejemplo trivial.

Menos trivial es preguntar si una matrícula ABCD cumple que (AB)^2+(CD)^2=ABCD.

La respuesta es que existen dos soluciones, 1233=12^2+33^2 y 8833=88^2+33^2. Lo puedes comprobar con la condición

If trozocifras(m;3; 4) ^ 2 + trozocifras(m; 1; 2) ^ 2 = m Then print m

Un trozo múltiplo de otro

A veces las búsquedas de este tipo se deben acotar un poco para evitar resultados triviales. Proponemos otro ejemplo:

¿En cuántos números de tres cifras ABC se cumple que AB es múltiplo de BC?

En esta propuesta, si nos limitamos a lo que se pide, nos resultan demasiados casos, con lo que pierden interés:


Se observa que resultan casos triviales en los que B=0, lo que facilita que se cumpla la condición, o aquellos, como el 333, en el que AB=BC, con lo que es múltiplo trivialmente. Buscaremos de nuevo, pero exigiendo que BC sea mayor que 9, para evitar el cero central, y que AB<>BC. De esta forma obtenemos un resultado más restringido.

421,  517, 526, 724, 842, 913, 923, 931, 947

Es curioso que todos presentan cifras distintas.

Anexo

Public Function numcifras(n)
'Calcula el número de cifras enteras de un número natural. Si no lo es, devuelve un cero

Dim nn, a

a = 1: nn = 0
While a <= n
a = a * 10: nn = nn + 1
Wend
numcifras = nn
Else
numcifras = 0
End Function


Public Function trozocifras(m, n, p)
‘Extrae cifras de m desde el orden n (por la derecha) hasta el orden p. Si no es lógico devuelve -1
Dim a, b, c, d


c = numcifras(m)
If n > c Or p > c Then
  trozocifras = -1
  Else
  a = 10 ^ p
  d = 10 ^ (n - 1)
  b = m - Int(m / a) * a
  b = Int(b / d)
  trozocifras = b
  End If
Else
trozocifras = -1
End Function

domingo, 16 de abril de 2017

Hoja Cartesius(3) Arreglos con cuentas


Para una mejor comprensión de esta entrada es conveniente que te leas las dos anteriores de la serie, publicadas en las direcciones. Basta con que uses la etiqueta "Cartesius" en el lateral derecho.

Permutaciones con cuentas

Imagina que creamos un producto cartesiano considerando el orden y la repetición de elementos, pero exigimos el número de repetición de alguno de ellos.

Por ejemplo, deseamos construir permutaciones con siete elementos a partir de los números 2 y 3, pero deseamos que aparezca en cada arreglo 4 veces el 2 y tres veces el 3. Para eso debemos usar las condiciones, que filtran el producto cartesiano total para adaptarlo a nuestros deseos. Puedes intentar escribir esto como planteamiento:

XTOTAL=7
XT=2,3
CONTAR(2)=4
CONTAR(3)=3

Pulsa en Iniciar y obtendrás 35 arreglos, 7!/(3!*4!)=7*5=35, según la fórmula elemental



De igual forma, podría interesarnos marcar un mínimo a algunos elementos. Por ejemplo, permutar con repetición los números 1, 2, 3, 4 y 5, pero exigiendo que al menos se repita el 2 tres veces.

Escribiríamos

XTOTAL=5
XT=1..5
CONTAR(2)>2

Obtendríamos un número algo extraño, el 181. Razonamos de dónde procede.

Clasificamos los arreglos según las veces que aparece el 2, y nos daría

C(5,3)*VR(4,2)+C(5,4)*VR(4,1)+C(5,5)*VR(4,0) = 10*4^2+5*4+1*1 = 160+20+1 =181

Los números combinatorios representan los lugares que ocupa el 2 repetido, y las variaciones con repetición los otros números que le acompañan en cada arreglo. Es interesante, para quienes se inician en estos temas, recorrer los 181 resultados e identificar cada grupo para contarlos mejor y llegar a 160, 20 y 1. Si en los controles activas que el resultado sea un número, podrás verlos de forma más compacta:


Observarás que vamos recorriendo los temas de la Combinatoria clásica, pero pronto nos desviaremos a otras cuestiones.

Variaciones con cuentas

Lo que sigue no se suele estudiar en Enseñanza Media. Imaginemos que deseamos construir variaciones (se tienen en cuenta el orden y los elementos), pero que sometemos alguno de estos a una cuenta. Por ejemplo, tomemos los siete primeros números naturales. Formemos con ellos variaciones con repetición tomados de 5 en 5. Si no imponemos más condiciones, el número de arreglos sería 7^5=16807.

Sobre esa base, si deseamos que los elementos 2 y 3 se repitan exactamente dos veces cada uno, la estructura de los arreglos cambia totalmente. Con Cartesius se puede resolver el problema con este planteo:

XTOTAL=5
XT=1..7
CONTAR(2)=2
CONTAR(3)=2

No se añade REPITE porque es la opción por omisión en la construcción de las variaciones. Al pulsar en Iniciar observamos que sólo quedan 150 casos posibles (con LibreOffice Calc tardará un poco. Para ver que no ha terminado observa la celda A1 de la hoja Producto). Aquí tienes un fragmento de la tabla:



Resultan 150 casos porque 2, 2, 3, 3 admiten 24/(2*2)=6 posibilidades y a cada uno le acompañan uno de los restantes elementos, 1, 4, 5, 6, y 7, que además se pueden situar en cinco sitios, luego 6*5*5=150. Como en un ejemplo anterior, podemos expresarlo como C(4,2)*VR(5,2)

Fórmula general

Supongamos que combinamos m números tomados de n en n con orden y repetición, en los que p de ellos están sometidos a unas cuentas r1, r2,...rp que suman s. Vemos que en el recuento de las variaciones posibles debemos multiplicar tres factores.

1) Posibles ordenamientos de los p elementos forzados a repetir: s!/(r1!r2!...rp!)

2) Variaciones de los restantes: (m-p)^(n-s).

3) Formas de intercambiarse los s que admiten cuentas con los n-p elementos del arreglo que no obedecen a esa cuenta. Serían n!(s!(n-s)!)

Multiplicamos y quedaría:


Simplificando entre s! y uniendo fracciones:



Lo comprobamos con el anterior ejemplo: m=7, n=5, p=2, s=4, r1=2, r2=2
V7,5,2,2=5!/(2!2!1!)*51=30*5=150, que era la respuesta de Cartesius.

Comprobamos la fórmula con otros ejemplos:

Variaciones de siete elementos tomados de 6 en 6, en las que el 2 se debe repetir dos veces. Lo programamos en Cartesius y obtenemos 19440 soluciones.

XTOTAL=6
XT=1..7
CONTAR(2)=2

(Hemos optado por un NO en la opción de Ver desarrollo. Hay que tener paciencia, porque tarda. En algunas versiones de Excel se para la aparición, pero luego vuelve)



Comprobamos la fórmula: m=7, n=6, p=1, s=2,  r1=2,

V7,6,2,2 = 6!/(2!4!)64=15*1296=19440

Una última comprobación:

Siete elementos tomados de 5 en 5, en los que el elemento 2 (podría ser otro. No afecta al resultado) se repite 3 veces.

Usamos estas condiciones en Cartesius:

XTOTAL=5
XT=1..7
CONTAR(2)=3

360 posibilidades.



Calculamos: m=7, n=5, p=1, s=3, r1=3

V7,5,3,3 = 5!/(3!2!)62 = 120/12*36 = 360

Proponemos otro cálculo, que no explicaremos.

Variaciones de 8 objetos tomados de seis en seis, de los que un elemento (puede ser el 2) se repite dos veces y otro, (por ejemplo el 3)  tres. Te deben resultar 360. Comprueba con la fórmula. Las primeras variaciones serían estas:



Estos ejemplos con más de cinco elementos por arreglo pueden tardar bastante. Paciencia.

Otros condicionamientos

Hemos condicionado las variaciones fijando el número de apariciones de un elemento, pero podemos pensar en otros muchos condicionamientos.

Desarrollaremos ahora algunos para que te vayas familiarizando con el manejo de Cartesius.

Igualdades y desigualdades

Imaginemos que deseamos formar todas las permutaciones con repetición de los números 1, 2, 3 y 4 (256 en total, es decir 4*4*4*4), pero que deseamos que el primer elemento sea igual al segundo, y que este sea mayor que el tercero. Los elementos aislados se representan en Cartesius como X1, X2, X3,… Por tanto, lo que deseamos es que X1=X2 y que X2>X3.

En este tipo de programas la conectiva lógica Y se puede sustituir por el producto *, ya que VERDADERO suele ser equivalente a “distinto de cero” y FALSO a “igual a cero”. Por eso, las dos condiciones unidas se pueden escribir como (X1=X2)*(X2>X3).

Para introducir estas fórmulas condicionantes usamos el prefijo ES, por lo que escribiremos:

XTOTAL=4  Número de elementos que se toman
XT=1..4       Conjunto con el que se forma el producto cartesiano
ES (X1=X2)*(X2>X3)  Condición añadida

No escribas los comentarios en cursiva, que pueden alterar el funcionamiento. Debes usar estas condiciones de abajo.

XTOTAL=4
XT=1..4
ES (X1=X2)*(X2>X3)

Iniciamos, y obtenemos 24 arreglos en lugar de los 256 previstos:



Este ejemplo te dará idea de la potencia de cálculo y planteamiento que puedes obtener con la hoja Cartesius.

Aquí no merece la pena buscar una fórmula teórica (puedes intentarlo), porque al depender el número de arreglos del primer elemento, no sería práctica.

lunes, 3 de abril de 2017

Números piramidales (2): Tetraedros.


Esta entrada forma serie con otra ya publicada, cuya lectura se recomienda, situada en la dirección

http://hojaynumeros.blogspot.com.es/2017/03/numeros-piramidales1-definiciones-y.html

A los números piramidales triangulares se les conoce también como tetraédricos, o simplemente tetraedros (abreviado, TET), en recuerdo del primer poliedro regular. Todos ellos se forman a partir del 1 adosando los distintos números triangulares, 3, 6, 10, 15, 21, 28… por lo que también podemos decir que los tetraédricos equivalen a las sumas parciales de los triangulares.



TET(1)=1
TET(2)=1+3=4
TET(3)=4+6=1+3+6=10
TET(4)=10+10)1+3+6+10=20

La lista de los primeros será, pues:

1, 4, 10, 20, 35, 56, 84, 120, 165, 220, 286, 364, 455, 560, 680, 816, 969, 1140, 1330, 1540, 1771, 2024, 2300, 2600, 2925,… http://oeis.org/A000292

La puedes reproducir con la calculadora Calcupol que presentamos en la anterior entrada de esta serie.

http://www.hojamat.es/sindecimales/aritmetica/herramientas/herrarit.htm#figurados

Basta fijar el tipo en Piramidal, el orden en 3, y escribir en pantalla 1. Con esto, cada vez que pulses en la Tecla PROX se formará un nuevo piramidal tetragonal. En la imagen llegamos hasta 969:



La formula para estos números se simplifica mucho. Recordamos la expresión general para todos los piramidales:

Hacemos k=3 y queda:


Esta expresión nos suena familiar, y es que equivale al número combinatorio n+2 sobre 3:


Por ejemplo, el tetragonal de orden 7 es 84, y equivale a (7*8*9)/6=504/6=84
Puedes usar la expresión de hoja de cálculo COMBINAT, para calcular el número combinatorio:

Y ya, por repasar más detalles, con nuestra calculadora combinatoria puedes usar las teclas 9 C 3:



La tienes en la dirección

http://www.hojamat.es/sindecimales/combinatoria/herramientas/herrcomb.htm#calcucomb

Por ser números combinatorios de orden 3, los tetraedros se situarán en la cuarta fila del triángulo de Pascal:



(Imagen adaptada de otra contenida en Wikipedia.es)

Por cierto, y como era de esperar, los números triangulares se presentan en la anterior paralela.

Curiosidades

Al igual que hicimos con cuestiones similares, desarrollaremos a continuación algunas propiedades, muchas de ellas tomadas de http://oeis.org/A000292

Suma de diferencias

Si, como es costumbre en oeis.org, comenzamos la sucesión por el 0, resulta que cada número tetragonal de orden n es suma de todas las diferencias b-a que se pueden formar entre los números 1, 2, 3, … n entre sí, si b>=a (Amarnath Murthy, May 29 2003). Lo vemos mejor con un esquema de esas diferencias. La imagen contiene el desarrollo para el tetragonal 20:



Las cabeceras de filas y columnas están formadas por los números del 1 al 5. En el centro figuran las diferencias entre ellos sin contar las negativas, y a la derecha figuran sus sumas por filas. El número 20 resulta como suma de todas las diferencias del interior. Como ese número, por definición, es suma de triangulares, se formará a partir de 10+6+3+1, que son triangulares porque cada uno es suma de enteros consecutivos 1, 2,… k.

Suma de productos

El mismo autor, Amarnath Murthy, nos propone otra igualdad interesante, y es proceder a multiplicar todos los sumandos posibles p y q cuya suma es n+1, y todos los productos también sumarán un número tetragonal. En este caso es más una curiosidad algebraica que aritmética, pues se justifica así:

Suma de productos p*q con p+q=n+1:

1(n+1-1)+2(n+1-2)+3(n+1-3)+…+n(n+1-n)=n(n+1)(n+1)/2-1^2-2^2-…n^2

Pero la suma de cuadrados es n(n+1)(2n+1)/6

Restamos y queda n(n+1)(n+1)/2- n(n+1)(2n+1)/6 =n(n+1)(3n+3-2n+1)/6=n(n+1)(n+2)/6

Como es la expresión del tetragonal de orden n, ya lo tenemos demostrado. Un esquema con hoja de cálculo aclara bastante el proceso. En este caso no se considera el 0 como inicio de la sucesión:



Suma de cuadrados

Un número tetragonal, si tiene lado par n, coincide con la suma de los cuadrados de todos los números pares comprendidos entre 1 y n/2. Por ejemplo:

El tetragonal 56=TET(6) equivale a la suma 2^2+4^2+6^2=4+16+36=56. Basta aplicar la suma de cuadrados consecutivos, ((n(n + 1)(2n + 1)) / 6), al caso n/2 y después multiplicar por el factor común 2^2=4. En cuanto desarrollemos
obtenemos TET(n)= n(n+1)(n+2)/6:

Suma cuadrados pares es  4(n/2)(n/2+1)(n+1)/6=n(n+1)(n+2)/6

Si es impar, bastará sumar el mismo número de cuadrados impares. Como 35=1^2+3^2+5^2=1+9+25

Basta ver que la suma de ambos daría la de todos los cuadrados, en este caso, 56+35=91, que coincide con (6*7*(2*6+1))/6=7*13=91, luego es válida la posibilidad de sumar cuadrados impares.

Fórmula de recurrencia

Al tener expresión algebraica sencilla, los números tetragonales permiten fácilmente una expresión recurrente. En concreto es:

TET(n) = n + 2*TET(n-1) - TET(n-2)

La demostración es inmediata: n + 2*TET(n-1) - TET(n-2)=n+2*(n-1)*n*(n+1)/6-(n-2)(n-1)n/6 y simplificando llegamos a n(n+1)(n+2)/6=TET(n)
Si disponemos estos números en columna, podemos aplicar a cada dos de ellos esta fórmula de recurrencia:



Las líneas nos indican que 35 depende de los dos anteriores, 10 y 20, y de su número de orden 5, mediante la operación 35 = 5+2*20-10 = 35

Equivalencia con un triangular

Una cuestión interesante es estudiar la posibilidad de reducir un número tetraédrico a un triangular puro, como si “aplanáramos” la pirámide hasta convertirla en un número triangular con un lado distinto. Basta aplicar el criterio para que m sea triangular, y es que 8m+1 sea cuadrado. Pues bien. Aplicando ese criterio, sólo se han encontrado cinco números tetraédricos que sean también triangulares: 1, 10, 120, 1540 y 7140. Si aplicamos el criterio al cuarto, nos queda:

8*1540+1 = 12321 = 111^2

Por cierto, la equivalencia con un cuadrado aún es más escasa: sólo son cuadrados los tetraédricos 1, 4 y 19600.



jueves, 23 de marzo de 2017

Hoja Cartesius (2) – Variaciones condicionadas


En una entrada anterior comenzamos a usar nuestra herramienta Cartesius. Sería conveniente que la leyeras antes de iniciar el estudio de esta.

http://hojaynumeros.blogspot.com.es/2017/02/productos-cartesianos-condicionados-con.html

Variaciones condicionadas

Una gran utilidad de Cartesius es la posibilidad de añadir condiciones a las propias de un arreglo determinado. En la entrada anterior iniciamos el uso de Cartesius y procedimos a construir variaciones. Ahora las condicionaremos de diversas formas.

Explicamos condiciones nuevas con un ejemplo:

De todas las variaciones sin repetición que podemos formar con los números 1 al 7 tomados de 4 en 4, ¿cuántas presentan una suma de elementos igual a 14? ¿Cuántas de ellas contienen un 1 y un 6?

El principio de la programación es fácil:

XTOTAL=4
XT=1..7
NO REPITE

Obtendremos 840=7*6*5 variaciones. Compruébalo.

Si le añadimos la condición SUMA=14, obtendremos el desarrollo pedido:



(Se admiten mayúsculas y minúsculas y que no influyen los formatos de las  celdas)



Se obtiene un total de 96 resultados. Es interesante que, en lo posible, se justifiquen los resultados que nos ofrece Cartesius. En este caso, había cuatro formas de sumar 14: 1+2+4+7=1+2+5+6=1+3+4+6=2+3+4+5 y si multiplicamos por 24 órdenes distintos que admiten los sumandos, obtenemos 24*4=96.

Así que podemos fijar la suma de nuestros arreglos numéricos. Basta escribir SUMA= y el resultado que nos interese.

En la segunda parte de la propuesta nos preguntábamos en cuántas de esas sumas figurará un 1 y un 6. Esto se consigue con la condición CONTAR. Escribiremos CONTAR(1)=1 y CONTAR(6)=1, para exigir que sólo aparezcan una vez.



Pulsa en el botón Iniciar (o en el de Reiterar de la siguiente hoja) y obtendrás la mitad de resultados, 48. También se puede justificar: si figuran 1+6 y 6+1 en todas las sumas, los otros sumandos han de ser 2+5, 5+2, 3+4 y 4+3. En total, combinando, nos resultan 8 sumas diferentes (teniendo en cuenta el orden porque son variaciones). Cada una de estas sumas admite 6 órdenes (4!/(2!2!), luego, multiplicando, resultarán 48 variaciones.

Otro ejemplo

Disponemos de los números 1 al 5, y deseamos formar con ellos variaciones de cuatro en cuatro sin repetición. Según lo estudiado hasta ahora, vemos que bastarán estas tres condiciones:

XTOTAL=4
XT=1..5
NO REPITE

Escríbelas en Cartesius y comprueba que resultan 5*4*3*2=120 soluciones.



Con los elementos anteriores, deseamos destacar aquellos arreglos en los que aparecen el 3 y el 4, las veces que sean. Comenzamos como en el ejemplo anterior

XTOTAL=4
XT=1..5
NO REPITE

Ahora le añadimos dos condiciones nuevas:

CONTAR(3)>0
CONTAR(4)>0



Significan que al contar el 3 o el 4, el resultado ha de ser distinto de cero, o lo que es igual, que han aparecido. Iniciamos la construcción del producto cartesiano condicionado y obtenemos sólo 72 resultados, porque se han perdido los arreglos que no contenían ni 3 ni 4 simultáneamente, que suman 1*2*3*4+1*2*3*4 = 48. Esto es así porque van de cuatro en cuatro, luego al menos o el 3 o el 4 aparecerán, aunque no simultáneamente. Tenemos entonces 120-48=72.


Otra forma de verlo: Los elementos restantes producen 3*2=6 resultados. Los elementos 3 y 4 producen 2, luego ya tenemos 12 (el producto). Pero entre unos y otros se pueden ordenar, según la conocida fórmula de permutaciones con repetición, de 4!/(2!2!)=6 formas. Multiplicamos y obtenemos 12*6=72.

La función CONTAR tiene más propiedades, que veremos en otro momento. Lo importante es que vas descubriendo la flexibilidad de condiciones que permite Cartesius.

Datos como sucesiones

La condición XT=1..8 nos marca un intervalo del número 1 hasta el 8, pero podemos cambiar el valor de esos datos, 1, 2, … 8… por otros que se calculen a partir de ellos. Esto se puede lograr con la condición SUC seguida de una expresión en N válida y entre paréntesis. Por ejemplo, SUC(N^3) convertiría esos números 1..8 en sus cubos, 1, 8, 27,…512. En teoría admite cualquier expresión válida con números enteros. Si no lo es, se pueden producir errores inesperados, por lo que si se usa con alumnos, se deberá tener mucha paciencia, e iniciar el cálculo si las operaciones fallan.

Proponemos un ejemplo: Descomponer 2017 como suma de cubos de todas las formas posibles, no pudiendo pasar de cuatro cubos (para controlar un poco la explosión de resultados que podrían producir 1^3)

Como no nos indican el número de sumandos, sustituimos la condición XTOTAL=4 por XRANGO=4. La diferencia estriba en que esta última hace recorrer el número de elementos de los arreglos pedidos entre 1 y el total, lo que, aunque tarda más, nos ofrece todas las posibilidades pedidas.

Podía quedar así:

XRANGO=4
XT=1..12 (que es el mayor cubo posible)
XT=SUC(N^3)
SUMA=2017

Aunque no lo haremos, no importa incluir un comentario entre paréntesis si está bien separado de la condición por espacios en blanco.

Lo escribimos en Cartesius:


Nos resultarán 15 posibilidades:



Es buen momento para insistir en que estos cálculos pueden resultar lentos con LibreOffice Calc, por lo que se ha insertado un contador en la celda A1 de la hoja Producto como aviso de que no se ha finalizado el cálculo.

Aquí vemos que no queríamos tantas, por lo que podíamos haber añadido la condición CRECIENTE, para eliminar el orden en el resultado:



Esto nos llevaría a usar combinaciones, y será el tema de la siguiente entrada.

lunes, 13 de marzo de 2017

Sumas de cuadrados con diferencias simétricas


Preparando unos cálculos sobre fechas en Twitter, me he encontrado con desarrollos dobles en suma de tres cuadrados, cuyas bases presentan diferencias simétricas en ambas sumas. El primer ejemplo fue el de 6/1/17, que escrita como 6117 se descompone así:

6117=(46-6)^2+46^2+(46+3)^2
6117=(44-3)^2+44^2+(44+6)^2

En las dos sumas las diferencias son las mismas, 3 y 6, pero situadas de forma simétrica.

Tres días más tarde, el 9/1/17, me encontré con que 9117 presentaba una propiedad similar:

9117=(56-6)^2+56^2+(56+3)^2
9117=(54-3)^2+54^2+(54+6)^2

Decidí entonces estudiar esta situación, que no parece darse a menudo. El que estos dos, 6117 y 9117 aparecieran tan seguidos pudo ser una casualidad. Después he visto que se encuentran más de los que creía.

Planteamiento del problema

En esta situación intervienen cuatro parámetros: las diferencias (en el ejemplo 3 y 6), a las que asignaremos las variables a y b, el número total (6117 o 9117 en nuestro ejemplo), al que llamaremos N, y el desplazamiento que existe entre los dos cuadrados centrales de la suma, que representaremos con la letra m. En ambos ejemplos el desplazamiento es de 2 (46-44 o 56-54). Con estos convenios, nuestro problema se puede plantear así:

(x-a)2+x2+(x+b)2 = (x+m-b)2+(x+m)2+(x+m+a)2

Se observa enseguida que aquí se pueden simplificar bastantes términos y, en efecto, la ecuación queda así:

(4a-4b+6m)x = m(2b-2a-3m)

Como, según hemos comprobado en los ejemplos, el valor de x no depende del de m, la única solución es que ambos paréntesis sean nulos, lo que nos lleva a que


Esta relación supone dos condiciones:

b-a ha de ser múltiplo de 3, es decir, b=a+3k (en los ejemplos, 3 y 6 la cumplen)

m ha de ser par (en los ejemplos m=2)

Si no lo ves claro con la variable x, aquí lo tienes con dos enteros p y q, p<q, a<b:

(p-a)^2+p^2+(p+b)^2 = (q-b)^2+q^2+(q+a)^2
3q^2-3p^2=-q(2a-2b)+p(2b-2a)
3(p+q)(q-p) = (p+q)(2b-2a)
3(q-p)=2(b-a)

Llegamos a la misma conclusión.

Para fijar mejor el problema suponemos que a<b y que las sumas no contienen sumandos nulos.

Relación de las sumas con N

Volvemos a una de las sumas equivalentes:

(x-a)2+x2+(x+b)2 = N

Para valores dados de a y de b, será posible despejar x en la ecuación, y así relacionarla con N. Simultáneamente descubriremos qué condiciones ha de cumplir N para que x sea entero.

Simplificando y despejando x llegamos a


a-b es múltiplo de 3, según vimos anteriormente, luego el radicando será equivalente a 9 veces un cuadrado. Pues ya tenemos la condición que ha de cumplir N:


Representamos por p2 un cuadrado adecuado para que se verifique la igualdad.

Si en cada caso particular sustituimos a y b por su valor, podremos saber si N puede presentar o no, una suma con diferencias simétricas.

Volvemos a nuestros ejemplos, en los que a=3, b=6 y m=2. Si sustituimos en la condición anterior nos resulta que


Esto también obliga a que N (en este caso) sea múltiplo de 3.

Hemos aplicado esta condición a los números comprendidos entre 5000 y 10000 y ahí han aparecido nuestros conocidos 6117 y 9117:



De forma simultánea, hemos despejado x, con lo que comprobamos que al 6117 le corresponde el 44, como ya sabíamos, y al 9117 el 54.

No es de extrañar que las soluciones de x hayan resultado consecutivas. En realidad, para cada valor de x podemos encontrar N mediante un polinomio de segundo grado. En el ejemplo sería:

N=(x-3)2+x2+(x+6)2 = 3x2+6x+45

Así que para cada par de valores a y b, los valores de N presentan una relación cuadrática con x. Si tomo valores de N más pequeños, para que x comience en 1, y construyo un gráfico, se percibe claramente la relación cuadrática:


Puedes ir comprobando, en otros valores de la tabla, si se cumple la condición encontrada y si x tiene el valor esperado.

Valores de N con esta propiedad

En principio, no todos los números naturales tienen por qué presentar esta equivalencia de sumas. Por ejemplo, 4258 no la posee. ¿Cómo podíamos encontrar los números que admiten esta descomposición para valores adecuados de a, b y m?

La búsqueda de números con la propiedad de simetría se puede basar en recorrer, para cada uno, los valores posibles de a y b, y en lugar de usar m, apoyarnos en los criterios estudiados en párrafos anteriores.

Si consideramos, por ejemplo, que b>a, es claro que b no puede sobrepasar la raíz cuadrada de N, y a, menor que b, de la mitad de esa raíz, ya que ambos se suman. Se podía estudiar una acotación más fuerte, pero esta no nos retrasa mucho. Para cada valor de a y b se estudia si se cumple la condición para N, y después un pequeño ajuste para que las bases de los cuadrados sean todas no negativas.

Hemos creado una función tal que a cada valor de N le hace corresponder la palabra “NO” si no presenta la simetría buscada, o una cadena con los valores de a, b, x y m en caso afirmativo.
Su código es el siguiente:

Public Function essumasim(n) As String
Dim a, b, r, m, p, q, d
Dim es As Boolean
Dim s$

es = False ‘variable que controla si se ha encontrado una solución
a = 1
r = Sqr(n)
s$ = ""
While a <= r / 2 And Not es ‘la variable a no sobrepasa la mitad de la raíz de N
b = a + 1
While b <= Sqr(r ^ 2 - a ^ 2) And Not es ‘acotación para b
q = (3 * n - 2 * a ^ 2 - 2 * b ^ 2 - 2 * a * b) / 9 ‘condición para que exista simetría
If escuad(q) Then
q = (a - b + Sqr(q * 9)) / 3 'valor de x
d = (b - a) * 2 / 3 'desplazamiento
If q + d - b >= 1 Then es = True: m = a: p = b 'evita un sumando negativo o cero
End If
b = b + 1
Wend
a = a + 1
Wend
If es Then essumasim = Str$(m) + ", " + Str$(p) + ", " + Str$(q) + ", " + Str$((p - m) * 2 / 3) Else essumasim = "NO" ‘salida de la función, o un NO o las variables deseadas
End Function

Si aplicamos esta función a los primeros números nos damos cuenta de que existen con simetría más de los esperados. Los primeros son los siguientes (hemos añadido los cuatro parámetros a su derecha).




Los primeros valores con descomposición simétrica de este tipo son:

62, 89, 101, 122, 134, 146, 150, 161, 173, 185, 189, 203, 206, 209, 218, 230, 234, 248, 254, 257, 266, 269, 270, 278, 281, 285, 299, 305, 314, 317, 321, 326, 329, 338, 341, 342, 347, 356, 357, 362, 374, 377, 378, 386, 389, 398, 401, 404, 405, 414, 419, 422, 425, 426, 434, 437, 441, 446, 449, 458, 461, 467, 470, 474, 477, 485, 488, 489, 494, 497,…

Por ejemplo, el 62 presentará las diferencias 1 y 4, un valor central de 3 y un desplazamiento de 2. Lo comprobamos:

(3-1)^2+3^2+(3+4)^2 = 4+9+49 = 62
(5-4)^2+5^2+(5+1)^2 = 1+25+36 = 62

Obtenemos los dos desarrollos con diferencias simétricas, tal como esperábamos.

Los que no aparecen en la tabla, o bien no admiten descomposición en suma de tres cuadrados, como le ocurre al 40, bien las admiten sin simetría o si son simétricas las diferencias, una de ellas es nula.

En el caso del 69 admite dos sumas, pero sus diferencias no son simétricas:

(2-1)^2+2^2+(2+6)^2 = 1+4+64 = 69
(4-2)^2+4^2+(4+3)^2 = 4+16+49 = 69

Otro número, el 114, presenta diferencias simétricas, pero una es nula. Por eso no se incluye en la lista:

114=(7-3)^2+7^2+(7+0)^2
114=(5-0)^2+5^2+(5+3)^2

Versión en PARI

Esta sucesión estaba inédita, y la hemos publicado en OEIS mediante este código en PARI:

is_sym_sum(n)=local(x,e=0,a,b,p);x=1;while(x^2<n\3&&e==0,a=1;while(x^2+(x+a)^2<n&&e==0,z=n-x^2-(x+a)^2; if(issquare(z),z=sqrtint(z);b=z-x-a;if(b>a,p=1;while(p^2<=n/3&&e==0,if(p^2+(p+b)^2+(p+a+b)^2==n,e=1);p+=1)));a+=1);x+=1);e
for(i=1,1000,if(is_sym_sum(i),print1(i,",")))

Sigue a misma metodología organizada de otra forma.

La puedes consultar en la dirección http://oeis.org/A282241

Nos alegra haber podido profundizar en este tema, pues no hemos encontrado un estudio similar.