%I#7 2015年10月1日11:52:50

%S 0,1,2,3,4,6,5,8,10,12,15,16,20,24,30,13,21,26,28,36,42,51,64,68,80，

%电话96102120,37,57,63,74,76108114126,41,55,75,82,88100110132150，

%U 35,39,45,52,56,70,72,78,84,90,6510410512130144156168180210

%N三角形，其中行N>1具有N个值x，使得phi（x）=A007374（N），我们将第一行定义为0。

%H T.D.Noe，<a href=“/A224531/b224531.txt”>n=1..100行三角形，扁平</a>

%H D.Bressoud，<a href=“http://www.macalester.edu/~bressoud/books/CNT.m“>CNT.m</a>计算数论Mathematica软件包。

%e三角形：

%e 0，

%e 1、2、，

%e 3、4、6、，

%e 5、8、10、12、，

%e 15、16、20、24、30、，

%e 13、21、26、28、36、42、，

%e 51、64、68、80、96、102、120、，

%e 37、57、63、74、76、108、114、126、，

%e 41、55、75、82、88、100、110、132、150

%t需要[“CNT`”]；nn=10；t=表格[{}，{nn}]；n=0；t[[1]]={0}；左=nn-1；当[left>0时，n++；p=PhiInverse[n]；cnt=长度[p]；如果[cnt<=nn&&t[[cnt]]=={}，t[[cnt]]=p；左--]]；t吨

%Y参见A066420、A224532（第一列和对角线中的数字）。

%K nonn，表

%氧1,3

%A _T.D.Noe_，2013年4月11日