A333432-OEIS公司

A333432飞机

A（n，k）是除以k^m-1的第n个数字m（如果m不存在，则为0）；正方形阵列A（n，k），n>=1，k>=1，由反对角线读取。

1, 1, 2, 1, 0, 3, 1, 2, 0, 4, 1, 3, 4, 0, 5, 1, 2, 9, 8, 0, 6, 1, 5, 4, 21, 16, 0, 7, 1, 2, 25, 6, 27, 20, 0, 8, 1, 7, 3, 125, 8, 63, 32, 0, 9, 1, 2, 49, 4, 625, 12, 81, 40, 0, 10, 1, 3, 4, 343, 6, 1555, 16, 147, 64, 0, 11, 1, 2, 9, 8, 889, 8, 3125, 18, 171, 80, 0, 12

(列表;桌子;图表;参考;听;历史;文本;内部格式)

抵消

1,3

链接

Seiichi Manyama，反对角线n=1..25，平坦

OEIS Wiki，2^n模块

例子

方阵A（n，k）开始：

1, 1, 1, 1, 1, 1, 1, 1, 1, ...

2, 0, 2, 3, 2, 5, 2, 7, 2, ...

3, 0, 4, 9, 4, 25, 3, 49, 4, ...

4, 0, 8, 21, 6, 125, 4, 343, 8, ...

5, 0, 16, 27, 8, 625, 6, 889, 10, ...

6, 0, 20, 63, 12, 1555, 8, 2359, 16, ...

7, 0, 32, 81, 16, 3125, 9, 2401, 20, ...

8, 0, 40, 147, 18, 7775, 12, 6223, 32, ...

9, 0, 64, 171, 24, 15625, 16, 16513, 40, ...

MAPLE公司

A： =proc（）局部h，p；p： =proc（）[1]结束；

proc（n，k）if k=2 then `if`（n=1，1，0）else

而nops（p（k））<n do对于h从1+p（k）[-1]

而k&^h modh<>1做od；

p（k）：=[p（k

od；p（k）[n]fi

结束

结束（）：

seq（seq（A（n，1+d-n），n=1..d），d=1..12）#阿洛伊斯·海因茨2020年3月24日

数学

A[n_，k_]：=模[{h，p}，p[_]={1}；如果[k==2，如果[n==1，1，0]，While[Length[p[k]]<n，对于[h=1+p[k][-1]]，Mod[k^h，h]！=1，h++]；p[k]=附加[p[k]，h]]；p[k][[n]]]；

表[A[n，1+d-n]，{d，1，12}，{n，1，d}]//展平(*Jean-François Alcover公司，2020年11月1日，之后阿洛伊斯·海因茨*)

交叉参考

k=1-20列给出：A000027号,A063524号,A067945号,A014945号,A067946号,A014946号,A067947号,A014949号,A068382号,A014950型,A068383号,A014951号,A116621号,A177805号,A014957号,A177807号,A128358号,A333506型,A128360型.

主对角线给出A333433型.

囊性纤维变性。A333429型,A333500型.

上下文中的序列：A130106号 A127093号 A141543号*A333500型 A182720型 A347316型

相邻序列：A333429型 A333430型 A333431型*A333433型 A333434飞机 A333435型

关键词

非n,表

作者

Seiichi Manyama先生2020年3月21日

状态

经核准的