0、2

Alois P. Heinzn，a（n）n＝0…300的表

G.f.：乘积{k>＝1 }（1-x^ k）/（1-13*x^ k）。-阿洛伊斯·P·海因茨03月11日2012

用（纽曼理论）：

B=：Pro（n）b（n）：＝ADD（φ（d）* 13 ^（n/d），d＝除数（n））/n-1结束：

A=：PROC（n）A（n）＝‘IF’（n＝0, 1）；

Add（dd *d（d），d=除数（j））*a（nj），j＝1…n）

结束：

SEQ（A（n），n＝0…30）；阿洛伊斯·P·海因茨03月11日2012

B[n]：=和[Eulelphi [d] * 13 ^（n/d），{d，除数[n] }/n-1；a[n]：= a[n]＝0, 1，求和[求和[d*b[d]，{d，除数[j] }] *[n[j]，{j，1，n}/n]；表[a[n]，{n，0, 30 }]（*）让弗兰2月17日2014后阿洛伊斯·P·海因茨*）

（岩浆）/*程序不适用于n> 5：*/[ 1 ] CAT [数类（GL（n，13））：n在[1…5 ] ]；

（帕里）

n＝66；x='x+O（'x^ n）；

GF＝PRD（n＝1，n，（1-x^ n）/（1-13*x^ n））；

V= VEC（GF）

/*乔尔格阿尔恩特1月24日2013＊

囊性纤维变性。A000 6951，A000 6952，A04314，A04315，A04316，A182603，A182604，A182605，A182607，A182608，A182609，A182610，A182611，A182612.

语境中的顺序：A324414 A09475 A268899*A079699 A216702 A3761

相邻序列：A182603 A182604 A182605*A182607 A182608 A182609

诺恩

克劳斯布罗克豪斯11月23日2010

更多条款阿洛伊斯·P·海因茨03月11日2012

编辑的岩浆代码文森佐·利布兰迪1月24日2013

经核准的