FANDOM


原始数列数・一次数列数(Primitive sequence number)

A=9:dim B[∞]
for C=0 to 9
 for D=1 to A
  B[D+1]=D
 next
 for E=A+1 to  step -1
  A=A*A
  for F=0 to E
   if B[E-F]<B[E] or B[E]=0 then G=F:F=E
  next
  for H=1 to A*G
   B[E]=B[E-G]:E=E+1
  next
 next
next
print A

P(x)=f_ε_0(x)

大一次数列数(Large primitive sequence number)

A=9:dim B[∞]
for C=0 to 9
 B[2]=A
 for D=2 to 1 step -1
  A=A*A
  for E=0 to D
   if B[D-E]<B[D] or B[D]=0 then F=E:E=D
  next
   G=B[D]-B[D-F]-1
   for H=1 to A*F
    B[D]=B[D-F]+G:D=D+1
   next
 next
next
print A

Lp(x)=f_φ(ω,0)

原始数列の簡単な拡張

ペア数列数・二次数列数(Pair sequence number)

dim A[∞],B[∞]:C=9
for D=0 to 9
 for E=0 to C
  A[E]=E:B[E]=E
 next
 for F=C to 0 step -1
  C=C*C
  for G=0 to F
   if A[F]=0 | A[F-G]<A[F]-H  then
    if B[F]=0 | B[F-G]<B[F] then I=G:G=C else H=A[F]-A[F-G]
   endif
  next
  for J=1 to C*I
   A[F]=A[F-H]+H:B[F]=B[F-H]:F=F+1
  next
  H=0
 next
next
print C

バシク行列数(Bashicu matrix number)

A=9:dim B[∞,∞],C[∞]
for D=0 to 9
 for E=0 to A
  B[2,E+1]=1
 next
 for F=2 to 1 step -1
  A=A*A
  for G=0 to F
   for H=1 to E
    if B[F-G,H]<B[F,H]-C[H] | B[F,1]=0 then
     if B[F,H+1]=0 then H=E:I=G:G=F else C[H]=B[F,H]-B[F-G,H]
    else
     H=E
    endif
   next
  next
  for J=1 to A
   K=I
   for L=1 to I
    for M=I to K
     if B[F-M,1]<B[F-I,1] | L=1 then
      for N=1 to E
       if B[F-M,N]<B[F-I,N]+C[N] | L=1 then B[F,N]=B[F,N]+C[N]
      next
      F=F+1:K=K+1:M=K
     endif
    next
   next
  next
  for O=1 to E
   C[O]=0
  next
 next
next
print A