登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志

请做一个捐赠让OEIS继续运行。我们现在已经56岁了。在过去的一年里,我们增加了10000个新序列,达到了近9000个引用(通常说“感谢OEI的发现”)。
其他方式捐赠

提示
(问候来自整数序列在线百科全书!)
A072749号 前n个无平方数中5的因子计数。 5

%我

%S 0,0,0,1,1,1,2,2,2,3,3,3,3,3,3,3,3,4,4,4,5,5,5,5,5,5,5,5,5,5,5,6,

%T 6,6,6,6,6,7,7,7,7,8,8,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,10,10,10,10,10,11,

%U 11,11,11,12,12,12,12,13,13,13,13,13,13,13,13,14,14,14,14,14,14,14,14,14

%N在前N个无平方数中5的因子的计数。

%H Gheorghe Coserea,<a href=“/A072749/b072749.txt”>n,a(n)表,n=1..10000</a>

%前10个无平方数是:1,2,3,5,6=2*3,7,10=2*5,11,13和14=2*7:5和10可被5整除,因此a(10)=2。

%t累加[If[Divisible[#,5],1,0]&/@Select[Range[150],SquareFreeQ]](*哈维P.戴尔,2013年10月17日*)

%o(平价)

%o n=89;k=0;bag=List();a=向量(n);

%o直到(n==0,k++;if(issquarefree(k),listput(bag,k);n--));

%o对于(i=2,#袋,a[i]=a[i-1]+(袋[i]%5==0));

%o print(a);\\\\\\ Gheorghe Coserea,2015年8月22日

%Y比照A005117、A072747、A072748、A072750、A072751。

%不知道

%O 1,7

%A_Reinhard Zumkeller,2002年7月8日

%E姓名由Gheorghe Coserea澄清,2015年8月22日

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:美国东部时间2020年11月25日14:33。包含338624个序列。(运行在oeis4上。)