2014 dxdy logo

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

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




На страницу Пред.  1, 2
 
 Re: Микстурные числа
Сообщение11.08.2018, 16:34 
grizzly в сообщении #1331784 писал(а):
А чтоб ещё с перламутровыми нечётное? :)

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

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

 
 
 
 Re: Микстурные числа
Сообщение11.08.2018, 17:30 
Ну и функция на языке 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