Завдання тут - написати програму, яка приймає натуральне число, та виробляє й член послідовності OEIS. Ця послідовність повинна мати ідентифікатор у вигляді, за яким слід 6 цифр. Тепер, коли ви берете свій вихідний код і змінюєте порядок його байтів для створення нової програми, ця програма повинна також реалізувати послідовність OEIS. Нова послідовність повинна бути ідентифікована з наступними тими ж 6 цифрами, що і минулого разу, але у зворотному порядку (включаючи провідні нулі).$n$$n$AA

Тепер, щоб не було тривіально, ні номер ідентифікатора OEIS, ні ваша програма не можуть бути паліндрами. Тобто послідовності і програми повинні бути різними. Ви не можете вибрати послідовність, для якої реверс не існує або порожній.

Для кожної своєї послідовності ви можете використовувати індексацію 0 або 1. Їм не потрібно використовувати одне і те ж індексування. Оскільки деякі послідовності OEIS мають обмежений домен, вам потрібно вивести лише правильні числа для домену послідовності. Необхідна поведінка не визначена за межами домену (ви можете виводити 0, збивати, замовляти піцу тощо).

Це кодовий гольф, тому відповіді будуть набрані в байтах, менша кількість байтів буде кращою.

05AB1E , 9 4 байти ( A000040 та A040000 )

Ø=>≠

Спробуйте в Інтернеті!

! enilno ti yrT

Пояснення:

Ø          # nth prime
 =         # output
  >≠       # ignored

: noitanalpxE

≠          # boolean negation (0 if n == 1, 1 otherwise)
 >         # increment
  =        # output
   Ø       # ignored

Perl 6 , 55 байт (A055642 та A246550)

+*.comb#}]1-_$[)4+_$^**X]_$^[)*..2,emirp-si&(perg(tros{

Спробуйте в Інтернеті!

$n$

{sort(grep(&is-prime,2..*)[^$_]X**^$_+4)[$_-1]}#bmoc.*+

Спробуйте в Інтернеті!

$x^e$$x$$e \ge 4$

Більшою частиною цього виклику було саме пошук хорошої послідовності з не надто складним реверсом.

Оновлення: використовуючи відповідь torcado , це може бути 19 байт (A010851 та A158010)

{256*$_**2-$_}#{21}

Спробуйте в Інтернеті!

\ / \ /> , 15 14 байт ( A010851 та A158010 )

cn;n*-1*"Ā":j

ефективно cn, вихід 12

j:"Ā"*1-*n;nc

ефективно j:"Ā"*1-*n, n (256n-1)

дякую другу за знайдені неймовірно прості послідовності!

Haskell, 47 байт ( A000010 та A010000 )

Обидві послідовності відносно прості.

p n=sum[1|x<-[1..n],gcd x n<2]--2+n*n=n p;1=0 p

Спробуйте в Інтернеті!

p n = тотальна функція Ейлера n (A000010) (1-індексація)

Відмінено:

p 0=1;p n=n*n+2--]2<n x dcg,]n..1[-<x|1[mus=n p

Спробуйте в Інтернеті!

p n = 1, якщо n = 0, інакше n ^ 2 + 2

Було б цікаво побачити відповідь, яка не використовує коментарів ...

Python 2 , 59 байт (A030000 та A000030)

f=lambda n,k=0:k if`n`in`2**k`else f(n,k+1)#]0[`n`:n adbmal

Спробуйте в Інтернеті!

f$k$$2^k$$n$

lambda n:`n`[0]#)1+k,n(f esle`k**2`ni`n`fi k:0=k,n adbmal=f

Спробуйте в Інтернеті!

$n$

Коротка версія, яка бере рядки як вхідні дані (для обох послідовностей), і обидві досі 0-індексованими:

Python 2 , 56 байт

f=lambda n,k=0:`k`*(n in`2**k`)or f(n,k+1)#]0[n:n adbmal

Спробуйте в Інтернеті!

lambda n:n[0]#)1+k,n(f ro)`k**2`ni n(*`k`:0=k,n adbmal=f

Спробуйте в Інтернеті!