登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A257058型 数字k,使得在k的四分之一平方表示中(#平方)>(#非平方)。
0, 1, 4, 5, 9, 10, 16, 17, 19, 25, 26, 28, 29, 35, 36, 37, 39, 40, 41, 47, 49, 50, 52, 53, 54, 61, 64, 65, 67, 68, 69, 71, 77, 81, 82, 84, 85, 86, 88, 95, 100, 101, 103, 104, 105, 107, 109, 115, 120, 121, 122, 124, 125, 126, 128, 130, 131, 137, 142, 144, 145 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,3
评论
每个正整数最多是四个不同的四分之一平方的和;看见A257019型.序列A257056型,A257057型,A257058型划分非负整数。
链接
克拉克·金伯利,n=1..1000时的n,a(n)表
例子
季度平方表示:
r(0)=0,因此a(1)=0
r(1)=1,因此a(2)=1
r(2)=2
r(3)=2+1
r(4)=4,因此a(3)=4
数学
z=400;b[n_]:=楼层[(n+1)^2/4];bb=表格[b[n],{n,0,100}];
s[n_]:=表[b[n],{k,b[n+1]-b[n]}];
h[1]={1};h[n_]:=连接[h[n-1],s[n]];
g=小时[100];r[0]={0};
r[n_]:=如果[MemberQ[bb,n],{n},连接[{g[[n]]},r[n-g[[n]]]];
u=表格[长度[r[n]],{n,0,z}](*A257023型*)
v=表格[长度[交集[r[n],表格[n^2,{n,0,1000}]],{n、0,z}](*A257024型*)
-1+选择[Range[0,z],2 v[[#]](*A257056型*)
-1+选择[范围[0,z],2 v[[#]]==u[[#]]和](*A257057型*)
-1+选择[Range[0,z],2 v[[#]]>u[[#]]&](*A257058型*)
交叉参考
关键词
非n,容易的
作者
克拉克·金伯利2015年4月15日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年6月28日00:57。包含373761个序列。(在oeis4上运行。)