显示找到的155个结果中的1-10个。
第页12
三
4
5
6
7
8
9
10...16
11, 13, 17, 19, 22, 23, 26, 29, 31, 33, 34, 37, 38, 39, 41, 43, 44, 46, 47, 51, 52, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 68, 69, 71, 73, 74, 76, 77, 78, 79, 82, 83, 85, 86, 87, 88, 89, 91, 92, 93, 94, 95, 97, 99, 101, 102, 103, 104, 106, 107, 109, 110, 111, 113, 114
数学
选择[范围@120, 最后@地图[首先,FactorInteger@#]>7&](*文森佐·利班迪2016年9月19日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(元素索引)
a068191 n=a068191_列表!!(n-1)
a068191_list=映射(+1)$elemIndices 0 a086299_list
(Python)
从sympy导入integer_log
定义f(x):
c=n
对于范围内的i(integer_log(x,7)[0]+1):
i7=7**i
m=x//i7
对于范围内的j(integer_log(m,5)[0]+1):
j5=5**j
r=m//j5
对于范围内的k(integer_log(r,3)[0]+1):
c+=(r//3**k).bit_length()
返回c
m、 k=n,f(n)
而m!=k: m,k=k,f(k)
3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 36, 42, 45, 48, 54, 60, 63, 72, 75, 81, 84, 90, 96, 105, 108, 120, 126, 135, 144, 147, 150, 162, 168, 180, 189, 192, 210, 216, 225, 240, 243, 252, 270, 288, 294, 300, 315, 324, 336, 360, 375, 378, 384, 405, 420, 432, 441, 450
数学
选择[3*Range[200],FactorInteger[#][[-1,1]]<10&](*哈维·P·戴尔,2019年4月10日*)
黄体脂酮素
(Python)
从sympy导入integer_log
def平分(f,kmin=0,kmax=1):
而f(kmax)>kmax:kmax<<=1
当kmax-kmin>1时:
kmid=kmax+kmin>>1
如果f(kmid)<=kmid:
kmax=kmid
其他:
kmin=kmid
返回kmax
定义f(x):
c=n+x
对于范围内的i(integer_log(x,7)[0]+1):
对于范围内的j(integer_log(m:=x//7**i,5)[0]+1):
对于范围内的k(integer_log(r:=m//5**j,3)[0]+1):
c-=(r//3**k).bit_length()
返回c
返回二分(f,n,n)*3#柴华武2024年9月17日
(Python)#序列的初始段速度更快
导入heapq
从itertools导入islice
def A085126gen():#术语生成器
v、 oldv,h,psmooth_primes,=1,0,[1],[2,3,5,7]
为True时:
v=heapq.heappop(h)
如果v!=旧版本:
产量3*v
oldv=v
对于psmooth_primes中的p:
堆堆(h,v*p)
打印(列表(islice(A085126gen(),65))#迈克尔·布拉尼基2024年9月17日
4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 48, 56, 60, 64, 72, 80, 84, 96, 100, 108, 112, 120, 128, 140, 144, 160, 168, 180, 192, 196, 200, 216, 224, 240, 252, 256, 280, 288, 300, 320, 324, 336, 360, 384, 392, 400, 420, 432, 448, 480, 500, 504, 512, 540, 560, 576
MAPLE公司
N: =1000:#获得所有项<=N
排序([seq(seq(序列(序列(2^a*3^b*5^c*7^d,d=0..floor(log[7](N/(2^a*3^b*5^c))#罗伯特·伊斯雷尔2018年3月18日
数学
选择[4Range[150],Last[FactorInteger[#]][[1]<10&](*哈维·P·戴尔2011年8月24日*)
8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 96, 112, 120, 128, 144, 160, 168, 192, 200, 216, 224, 240, 256, 280, 288, 320, 336, 360, 384, 392, 400, 432, 448, 480, 504, 512, 560, 576, 600, 640, 648, 672, 720, 768, 784, 800, 840, 864, 896, 960, 1000, 1008, 1024
数学
选择[8*Range[200],FactorInteger[#][[-1,1]]<10&](*哈维·P·戴尔2017年10月22日*)
5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 60, 70, 75, 80, 90, 100, 105, 120, 125, 135, 140, 150, 160, 175, 180, 200, 210, 225, 240, 245, 250, 270, 280, 300, 315, 320, 350, 360, 375, 400, 405, 420, 450, 480, 490, 500, 525, 540, 560, 600, 625, 630, 640, 675, 700
黄体脂酮素
(PARI)列表a(nn)={对于(n=1,nn,如果(vecmax(因子(5*n)[,1])<=7,打印1(5*n,“,”););}\\米歇尔·马库斯2017年8月15日
1849, 2309, 2411, 2483, 2507, 2531, 2629, 2711, 2753, 2843, 2851, 2921, 2941, 3139, 3161, 3167, 3181, 3217, 3229, 3251, 3287, 3289, 3293, 3323, 3379, 3481, 3487, 3541, 3601, 3623, 3653, 3697, 3698, 3709, 3737, 3739, 3803, 3827, 3859, 3877, 3901, 3923, 3947
评论
通过按顺序生成达到一定极限的7光滑数并收集差异来找到术语。然后,通过显示以下每个同余,前100个候选k被证明是正确的:
<2> +-k!==<31487336959版,
<3> +-k!==<2、5、7>型号121328339431,
<2,3>+-k!==<5,7>型号5699207989579,
<5> +-k!==<2、3、7>型号1206047658673,
<2,5>+-k!==<3、7>11174958041年款,
<3,5>+-k!==<31487336959版,
<7> +-k!==<2、3、5>型号1116870318707,
其中<a、b、…>表示由a、b、…生成的子组中的任何元素,。。。关于乘法子群模m的讨论,请参见A308247型.
例子
1849 =A308247型(4) 不能写为7-光滑数的差。所有较小的数字都可以;例如,281=2^5*3^2-7,289=2*3*7^2-5。。。,1847 = 3*5^4 - 2^2*7.
1, 2, 3, 4, 5, 6, 7, 8, 9, 25, 26, 27, 35, 28, 29, 45, 37, 38, 55, 39, 47, 56, 48, 57, 49, 58, 67, 59, 68, 77, 255, 69, 78, 256, 79, 88, 257, 89, 355, 258, 99, 267, 259, 268, 277, 455, 357, 269, 278, 358, 555, 279, 288, 359, 457, 289, 377, 556, 458, 299, 378, 557, 459, 379, 388, 477, 558, 567, 389, 478, 559, 568, 399, 577, 2555, 479
311, 479, 551, 619, 622, 671, 719, 839, 851, 933, 937, 958, 1102, 1103, 1117, 1151, 1193, 1238, 1244, 1291, 1319, 1342, 1391, 1433, 1437, 1438, 1487, 1499, 1511, 1531, 1553, 1555, 1559, 1619, 1651, 1653, 1667, 1678, 1679, 1697, 1857, 1866, 1871, 1874, 1913, 1916, 1919, 1933, 1937, 1991, 2011, 2013, 2077, 2113, 2117, 2157
评论
非形式的数字(2^i*3^j*5^k*7^l)*a+(2^m*3^n*5^p*7^q)*b,i,j,k,m,n,p>=0,a,b=0或1。排除的第一个数字是311。
数学
f[n]:=压扁时并拢@表[2^a*3^b*5^c*7^d,{a,0,Log2[n]},{b,0,Log[3,n/2^a]};
b=块[{nn=3000,s},s=f[nn];{0,1}~加入~选择[压扁时并拢@外部[Plus,s,s],#<=nn&]];
补码[范围[3000],b]
1, 68, 547, 2119, 5817, 13008, 25412, 45078, 74409, 116147, 173379, 249532, 348375, 474018, 630922, 823885, 1058051, 1338898, 1672260, 2064302, 2521535, 3050825, 3659361, 4354687, 5144682, 6037582, 7041946, 8166692, 9421074, 10814695, 12357491, 14059744, 15932086, 17985473
数学
表[
总和[Floor@Log[7,210^n/(2^i*3^j*5^k)]+1,
{i,0,日志[2,210^n]},
{j,0,日志[3,210^n/2^i]},
{k,0,对数[5,210^n/(2^i*3^j)]}],
{n,0,12}]
黄体脂酮素
(Python)
导入heapq
从itertools导入islice
从sympy导入primerange
def A372401gen(p=7):#p-光滑项生成器
v、 oldv,psmooth_primes,=1,0,list(素数范围(1,p+1))
h=[(1,[0]*len(psmooth_primes))]
idx={psmooth_primes[i]:i表示范围内的i(len(psmooth _primes))}
位置=0
为True时:
v、 e=heapq.heappop(h)
如果v!=旧版本:
位置+=1
如果len(集合(e))==1:
屈服位置
oldv=v
对于psmooth_primes中的p:
vp,ep=v*p,e[:]
ep[idx[p]]+=1
堆堆(h,(v*p,ep))
打印(列表(islice(A372401gen(),15))#迈克尔·布拉尼基,2024年6月5日
(Python)
从sympy导入integer_log
c、 x=0,210**n
对于范围内的i(integer_log(x,7)[0]+1):
对于范围内的j(integer_log(m:=x//7**i,5)[0]+1):
对于范围内的k(integer_log(r:=m//5**j,3)[0]+1):
c+=(r//3**k).bit_length()
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 18, 20, 21, 24, 27, 30, 36, 40, 42, 45, 48, 50, 54, 60, 63, 70, 72, 80, 81, 84, 90, 100, 120, 144, 180, 200, 210, 240, 252, 270, 288, 300, 343, 360, 400, 405, 420, 441, 450, 480, 500, 504, 525, 540, 576, 600, 630, 675, 686, 700, 720
评论
如果n是一个项,那么所有k都是10^k*n。
a(147)=84672是不能被10整除的最后一项吗?如果是这样,则a(n+43)=10*a(n)对于n>=105。(结束)
MAPLE公司
N: =10^3:#得到所有项<=N(应该是10的幂)
revdigs:=proc(n)局部L;
五十: =换算(n,基数,10);
加(10^(i-1)*L[-i],i=1..nops(L))
结束进程:
S: ={seq(seq(序列(序列(2^a*3^b*5^c*7^d,d=0..层(log[7](N/(2^a*3^b*5^c))
S: =S相交图(revdigs,S):
S: =地图(t->seq(t*10^i,i=0..ilog10(N/t)),S):
搜索在0.061秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|Demos公司|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月20日14:52 EDT。包含376072个序列。(在oeis4上运行。)
|