2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




Начать новую тему Ответить на тему На страницу Пред.  1, 2
 
 Re: Микстурные числа
Сообщение11.08.2018, 16:34 


05/09/16
11467
grizzly в сообщении #1331784 писал(а):
А чтоб ещё с перламутровыми нечётное? :)

212381 [1, 13, 31, 221, 403]
Не делится на 2,3,5,7,11

 Профиль  
                  
 
 Re: Микстурные числа
Сообщение11.08.2018, 17:23 
Аватара пользователя


01/12/11

8634
Гораздо интереснее другой любопытный факт, связанный с этой задачей. Но о нём поговорим уже в одной из следующих задач, которая будет "по мотивам" :wink:

 Профиль  
                  
 
 Re: Микстурные числа
Сообщение11.08.2018, 17:30 


05/09/16
11467
Ну и функция на языке PARI/GP для выяснения микстурности.
На этот раз их две, чтобы не загромождать.
Вспомогательная функция:
Код:
subsets(v, n)=my(lst=List(),v1=[]);forvec(v1=vector(n,i[1,#v]),listput(lst,vecextract(v,v1)),2);Vec(lst)

Функция subsets(v,n) возвращает вектор, состоящий из векторов длиной n элементов, составленные из элементов вектора v. Проверка на то что n не больше длины v не делается. То есть функция возвращает все сочетания по n элементов из v.
Основная функция:
Код:
Ktina129001(n)=my(v=[],s=0);if(numdiv(n)<11,return(0));v=divisors(n);v=v[1..floor(numdiv(n)/2)];v=subsets(v,5);for(i=1,#v,s=0;for(j=1,5,s=s+v[i][j]^2);if(s==n,return(v[i])));return(0)

Функция возращает ноль если число n не микстурное, или возвращает вектор из пяти делителей, сумма квадратов которых равна числу n, если оно микстурное. Возвращается первая в лексикографическом порядке микстурная комбинация, если их несколько.

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 18 ]  На страницу Пред.  1, 2

Модератор: Модераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group