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

 

标志

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

提示
(问候来自整数序列在线百科全书!)
A072750型 前n个无平方数的计数因子7。 5
0、0、0、0、0、0、0、0、1、1、1、1、1、1、2、2、2、2、3、3、3、3、3、3、3、3、3、3、3、3、3、3、3、3、3、3、4、4、4、4、4、4、4、4、4、4、5、5、5、5、5、5、5、5、5、5、5、6、6、6、6、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、7、8、8、8、8、8、8、9、9、9、9、9 10,10,10,10,10,10,11,11,11,11,11,11,11,11,11,11,11,11,11 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,10个

评论

a(n)-a(n-1)=1如果A005117号(n) 正在A008589号,否则为0。-罗伯特·以色列2015年8月23日

链接

莱因哈德·祖姆凯勒,n=1..10000的n,a(n)表

例子

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

枫木

N: =1000:#使用无平方数<=N

M: =map(proc(t)如果numtheory:-issqrfree(t),那么如果t mod 7=0,则1其他0 fi fi end proc,[$1..N]):

列表工具:部分(M)#罗伯特·以色列2015年8月23日

数学

使用[{sf=Select[Range[200],SquareFreeQ]},累加[If[Divisible[#,7],1,0]&/@sf]](*哈维·P·戴尔2013年3月21日*)

黄体脂酮素

(哈斯克尔)

a072750 n=a072750 U列表!!(n-1)

a072750 U列表=扫描1(+)$map((0^)。(`mod`7))a005117\U列表

--莱因哈德·祖姆凯勒2013年3月25日

(平价)

n=94;k=0;bag=List();a=向量(n);

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

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

印刷品(a)\\格奥尔赫·科塞雷亚2015年8月23日

交叉引用

囊性纤维变性。A005117号,A008589号,A072747型,A072748号,A072749号,A072751号.

上下文顺序:A309398飞机 邮编:A171626 A074279号*A235037号 邮编:A186437 A029835号

相邻序列:A072747型 A072748号 A072749号*A072751号 A072752号 A072753号

关键字

作者

莱因哈德·祖姆凯勒2002年7月8日

扩展

姓名澄清人格奥尔赫·科塞雷亚2015年8月23日

状态

经核准的

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

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

最后修订时间:2020年11月14日。包含338625个序列。(运行在oeis4上。)