1，2

n=1..20的n，a（n）表。

复合[n_Integer]：=不动点[n+PrimePi[#]+1&，n+PrimePi[n]+1]；f[n_u]：=Det[Table[If[i==j，0，Composite[Abs[i-j]]]，{i，1，n}，{j，1，n}]；Table[f[n]，{n，1，20}]

上下文顺序：A232426号 A317008型 A316873型*A317601型 A000767号 A053539号

相邻序列：A071078型 A071079号 A071080型*A071082型 A071083型 A071084型

签名

罗伯特·G·威尔逊五世2002年5月26日

经核准的