Последовательность Дивиначи

23

Дивиначи ( OEIS )

Выполните последовательность Фибоначчи, но вместо использования:

f(n) = f(n-1)+f(n-2)

Использование:

f(n) = sum(divisors(f(n-1))) + sum(divisors(f(n-2)))

Для ввода n, вывода n-го члена ваша программа должна иметь только 1 вход.

Первые 14 терминов (0-проиндексированы, вы можете 1-индекс; укажите, что вы использовали):

0  | 0     # Initial               | []
1  | 1     # Initial               | [1] => 1
2  | 1     # [] + [1]              | [1] => 1
3  | 2     # [1] + [1]             | [1,2] => 3
4  | 4     # [1] + [1,2]           | [1,2,4] => 7
5  | 10    # [1,2] + [1,2,4]       | [1,2,5,10] => 18
6  | 25    # [1,2,4] + [1,2,5,10]  | [1,5,25] => 31
7  | 49    # [1,2,5,10] + [1,5,25] | [1,7,49] => 57
8  | 88    # [1,5,25] + [1,7,49]   | [1, 2, 4, 8, 11, 22, 44, 88] => 180
9  | 237   # [1,7,49] + [180]      | [1, 3, 79, 237] => 320
10 | 500   # [180] + [320]         | [1, 2, 4, 5, 10, 20, 25, 50, 100, 125, 250, 500] => 1092
11 | 1412  # [320] + [1092]        | [1, 2, 4, 353, 706, 1412] => 2478
12 | 3570  # [1092] + [2478]       | [1, 2, 3, 5, 6, 7, 10, 14, 15, 17, 21, 30, 34, 35, 42, 51, 70, 85, 102, 105, 119, 170, 210, 238, 255, 357, 510, 595, 714, 1190, 1785, 3570] => 10368
13 | 12846 # [2478] + [10368]      | [1, 2, 3, 6, 2141, 4282, 6423, 12846] => 25704
Etc...

Вы можете выбрать, включать ли ведущий 0. Для тех, кто это делает: делители 0предназначены []для этой задачи.

Это код-гольф, выигрывает самый низкий счетчик байтов ...

code-golf sequence number-theory fibonacci division Урна волшебного осьминога
источник
15
Все натуральные числа делят 0 , поэтому его сумма делителей равна + ∞ .
Деннис
9
@ Денис, наконец, тот, кто не считает, что 1 + 2 + 3 + ... = -1/12.
Утренняя монахиня
1
@Dennis Мы можем избавиться от 0 и сделать это действительным, хотя: P. Или вы можете просто отправить ответ Mathematica, Infinityесли хотите.
Волшебная Урна Осьминога
Желе ответ будет короче. : P Вы можете либо изменить последовательность (ответ, вероятно, также потребует доработки), либо изменить его описание (начните с базовых значений 0, 1, 1 ).
Деннис
1
@carusocomputing Если это не меняет последовательность, как это может повлиять на ответы?
Мартин Эндер

Ответы:

10

05AB1E , 9 байтов

XÎFDŠ‚ÑOO

Попробуйте онлайн!

объяснение

XÎ          # initialize stack with 1,0,input
  F         # input times do
   D        # duplicate
    Š       # move down 2 places on the stack
     ‚      # pair the top 2 elements on the stack
      Ñ     # compute divisors of each
       OO   # sum twice
Emigna
источник
Тонны обмена происходит на хе! Интересный.
Волшебная Урна Осьминога
2
Мне нравится, как последние пару байтов сильно кричат ​​на читателя.
Рохан
1
Вы выиграли это на 2 минуты, лол.
Волшебная Урна Осьминога
8

Mathematica, 45 40 байт

If[#<3,1,Tr@Divisors@#0[#-i]~Sum~{i,2}]&

Функции Mathematica, связанные с делителями Divisors, DivisorSumи DivisorSigmaвсе они не определены для n = 0 (правильно), поэтому мы начинаем с f(1) = f(2) = 1и не поддерживаем ввод 0.

Определение его как оператора вместо использования безымянной функции кажется на два байта длиннее:

±1=±2=1
±n_:=Sum[Tr@Divisors@±(n-i),{i,2}]
Мартин Эндер
источник
* На 7 байт длиннее, если ±в кодировке, поддерживаемой Mathematica, 1 байт.
CalculatorFeline
@CalculatorFeline Это так. (Значение по умолчанию для $CharacterEncodingкомпьютеров Windows - WindowsANSIнапример, CP 1252.)
Мартин Эндер,
1
Хорошо знать. ,
CalculatorFeline
3

MATL, 16 15 байт

Oliq:",yZ\s]+]&

В этом решении используется индексация на основе 0.

Попробуйте это на MATL Online

объяснение

O        % Push the number literal 0 to the stack
l        % Push the number literal 1 to the stack
i        % Explicitly grab the input (n)
q        % Subtract 1
:        % Create the array [1...(n - 1)]
"        % For each element in this array...
  ,      % Do the following twice
    y    % Copy the stack element that is 1-deep
    Z\   % Compute the divisors
    s    % Sum the divisors
  ]      % End of do-twice loop
  +      % Add these two numbers together
]        % End of for loop
&        % Display the top stack element
Suever
источник
3

Желе , 10 9 байт

ð,ÆDẎSð¡1

Попробуйте онлайн!

Спасибо Деннису за -1.

Эрик Outgolfer
источник
9 байтов
Деннис
@Dennis Это 0было неявным?
Эрик Outgolfer
Когда вы берете количество итераций из STDIN, вы получаете цепочку niladic, а 0 является неявным аргументом цепочки niladic.
Деннис
@Dennis Так ¡и другие просто попытаются взять аргумент отовсюду, даже с Ɠ? Это довольно неожиданно ...
Эрик Outgolfer
Если не указано явно, ¡et al. принять последний аргумент командной строки и, если его нет, читает строку из STDIN.
Деннис
1

R, 81 байт

f=function(n,a=1,b=1,d=numbers::divisors)`if`(n-1,f(n-1,b,sum(d(a))+sum(d(b))),a)

1 индексируется и исключает 0 в начале последовательности. Этот ноль дал мне много проблем для реализации, потому что встроенный numbers::divisorsне справляется с этим хорошо.

Остальное - модифицированная версия стандартной рекурсивной функции, которая реализует последовательность Фибоначчи.

> f(1)
[1] 1
> f(2)
[1] 1
> f(3)
[1] 2
> f(5)
[1] 10
> f(13)
[1] 12846
JAD
источник