1,3

卡塔兹娜·马提拉，n=1..1000时的n，a（n）表

12=2^2*3^1，所以12的素数乘积的指数是1和2。序列的前11项中有4项等于1。（这些术语是a（1）、a（2）、a“4”、a“9”）。有一项（a（3））等于2。所以a（12）=4+1=5。

14 = 2^1 * 7^1. 因此，14的素数因子化中唯一不同的指数是1。序列的前13项中有4项等于1。所以a（14）=4。

f[l_List]：=追加[l，Length@Select[l，MemberQ[Last/@FactorInteger[Length[l]+1]，#]&]]；嵌套[f，{1}，100](*雷·钱德勒2006年11月21日*）

Maxima程序来自卡塔兹娜·马提拉，2008年2月19日：变量最大值=我们需要多少条件。生成1000个术语需要几个小时：

“|”（a，b）：=如果b=0，则为true-else，如果a=0，那么为false else，如果（floor（b/a））=（b/a），则为真-else false；

最大值：1000；

中缀（“|”）；

deg（n，p）：=如果p<2，则0 else块（d:0，loop，if（p^（d+1））|n），则d:d+1 else go（end），go（loop），end，d）；

f： makelist（0，i，1，max）；

dg：名单（0，i，1，max）；

f[1]：1；

对于n:2到max-do块（对于i:2到n-do dg[i]：deg（n，i），k:0，loop1，k:k+1，p:2，loop，如果（f[k]=dg[p]），则块（f[n]：f[n]+1，p:n+1），如果（p<=n），则p:next_prime（p），如果；

囊性纤维变性。A125088号.

上下文中的序列：A048865号 A058754号 A279909型*A271373型 A307558型 A226273型

相邻序列：A125084号 A125085号 A125086号*A125088号 A125089号 A125090型

非n

勒罗伊·奎特2006年11月19日

由扩展雷·钱德勒2006年11月21日

经核准的