A092628-OEIS公司

A092628号

只有三个非素数数字的素数。

101, 109, 149, 181, 191, 199, 401, 409, 419, 449, 461, 491, 499, 601, 619, 641, 661, 691, 809, 811, 881, 911, 919, 941, 991, 1013, 1021, 1031, 1039, 1051, 1063, 1087, 1093, 1097, 1103, 1117, 1129, 1151, 1163, 1171, 1187, 1193, 1201, 1249, 1289, 1291

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

抵消

1,1

链接

Harvey P.Dale，n=1..1000时的n，a（n）表

例子

101是素数，它有三个非素数数字，0和两个1；

4261是素数，它有三个非素数数字，1、4和6。

MAPLE公司

stev_sez:=进程（n）局部i，tren，st，ans，anstren；ans:=[]：anstren:=[[]：tren:=n：对于i while（tren>0）do st:=round（10*frac（tren/10））：ans:=[操作（ans），st]：tren：=trunc（tren/10）：结束do；对于i从nops（ans）到1 by-1执行anstren:=[op（anstren），op（i，ans）]；od；返回（anstren）；结束：ts_stnepf：=进程（n）局部i，stpf，ans；ans:=stev_sez（n）：stpf:=0：对于i从1到nops（ans）do if（isprime（op（i，ans））='false'），则stpf:=stpf+1；#非素数位数fiod；返回（stpf）结束：ts_pr_neprnt:=proc（n）local i，stpf，ans，ans1，tren；ans:=[]：stpf:=0:tren:=1：对于i从1到n的do，如果（i素数（i）=“真”且ts_stnepf（i）=3），则ans:=[操作（ans），i]：tren:=tren+1；光纤；返回（ans）结束：ts_pr_neprnt（5000）；

数学

dgQ[n_]：=计数[整数位数[n]，_？（！PrimeQ[#]&）]==3；选择[Prime[Range[300]]，dgQ](*哈维·P·戴尔2011年10月11日*）

交叉参考

囊性纤维变性。A019546号,A034844号.

上下文中的顺序：A344802型 126118英镑 A118773号*A107219号 A366106型 A140799号

相邻序列：A092625型 A092626号 A092627号*A092629号 A092630型 A092631号

关键词

非n,基础

作者

贾尼·梅利克2004年4月11日

状态

经核准的