版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請盡快對帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

返回列表

本帖產(chǎn)生 2 個(gè) 程序強(qiáng)帖，點(diǎn)擊這里進(jìn)行查看

wangww2011

木蟲 (著名寫手)

程序強(qiáng)帖: 13
應(yīng)助: 11 (小學(xué)生)
金幣: 4023.1
散金: 2709
紅花: 18
沙發(fā): 1
帖子: 1915
在線: 1537.1小時(shí)
蟲號(hào): 772953
注冊: 2009-05-17
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

[交流] Project Euler 47 歐拉工程 47 題已有3人參與

前兩個(gè)連續(xù)擁有兩個(gè)素?cái)?shù)因子的數(shù)是:
14 = 2 * 7
15 = 3 * 5

前三個(gè)連續(xù)擁有三個(gè)素?cái)?shù)因子的數(shù)是:
644 = 2^2 * 7 * 23
645 = 3 * 5 * 43
646 = 2 * 17 * 19.

請找到前四個(gè)連續(xù)擁有四個(gè)素?cái)?shù)因子的數(shù)，這四個(gè)數(shù)中的第一個(gè)數(shù)是多少？

回復(fù)此樓

» 猜你喜歡

材料與化工考研調(diào)劑已經(jīng)有3人回復(fù)
081700 調(diào)劑 267分已經(jīng)有3人回復(fù)
一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑已經(jīng)有3人回復(fù)
336化工調(diào)劑已經(jīng)有4人回復(fù)
276求調(diào)劑。有半年電池和半年高分子實(shí)習(xí)經(jīng)歷已經(jīng)有7人回復(fù)
08工學(xué)調(diào)劑已經(jīng)有10人回復(fù)
263求調(diào)劑已經(jīng)有6人回復(fù)
298求調(diào)劑已經(jīng)有8人回復(fù)
考研化學(xué)308分求調(diào)劑已經(jīng)有6人回復(fù)
0854 考研調(diào)劑招生了！AI 方向已經(jīng)有13人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:

Project Euler 50 歐拉工程 50 題已經(jīng)有12人回復(fù)
Project Euler 49 歐拉工程 49 題已經(jīng)有5人回復(fù)
Project Euler 48 歐拉工程 48 題已經(jīng)有30人回復(fù)
Project Euler 46 歐拉工程 46 題已經(jīng)有8人回復(fù)
Project Euler 45 歐拉工程 45 題已經(jīng)有7人回復(fù)
Euler 工程第三十八題已經(jīng)有9人回復(fù)
Euler 工程第廿九題：有多少不同的項(xiàng)? 已經(jīng)有30人回復(fù)
Euler 工程第廿六題：最長的循環(huán)節(jié) 已經(jīng)有9人回復(fù)
歐拉工程，第二十一題，計(jì)算10000以下親和數(shù)的和。已經(jīng)有14人回復(fù)
Euler Project Q17. 歐拉工程第十七題已經(jīng)有4人回復(fù)
Euler 工程第十六題：2的1000次方的各項(xiàng)和已經(jīng)有14人回復(fù)
Euler 工程第十五題：從左上角到右下角有多少條路？已經(jīng)有5人回復(fù)
Euler 工程第14題：找最長的數(shù)列已經(jīng)有9人回復(fù)
Euler Project Q13 歐拉工程第十三題已經(jīng)有20人回復(fù)
Euler Project Q12 歐拉工程第十二題已經(jīng)有23人回復(fù)
Euler Project Q8. 歐拉工程第八題已經(jīng)有4人回復(fù)
Euler Project Q7. 歐拉工程第七題已經(jīng)有14人回復(fù)

1樓 2011-09-07 12:24:51

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

tieer

木蟲 (正式寫手)

程序強(qiáng)帖: 4
應(yīng)助: 48 (小學(xué)生)
金幣: 1528.2
散金: 565
紅花: 26
帖子: 551
在線: 739.7小時(shí)
蟲號(hào): 761880
注冊: 2009-05-02
專業(yè): 高分子材料結(jié)構(gòu)與性能

★ ★ ★ ★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖
余澤成(金幣+3, 程序強(qiáng)帖+1): 歡迎參與討論！ 2011-09-07 22:03:57

還是沒人上答案啊，那就上我的超慢版吧，1241s，

CODE:

# -*- coding: cp936 -*-

#Project Euler 47 歐拉工程 47 題

#前四個(gè)連續(xù)的擁有四個(gè)素?cái)?shù)因子的數(shù)，這四個(gè)數(shù)中的第一個(gè)數(shù)是多少？

from math import sqrt

def isprime(p):                    #驗(yàn)證素?cái)?shù)，素?cái)?shù)則返回素?cái)?shù)本身，合數(shù)則返回False

    k=1

    for i in xrange(2,int(sqrt(p))+1):

        if p%i==0:

            k=0

            return False

            break

    if k:

        return p

def istheresult(n,m=0):

    actor=[i for i in xrange(3,n+1,2) if n%i==0]   #奇約數(shù)列表

    if n%2==0:

        actor.append(2)

    primelist=[i for i in actor if isprime(i)]     #約數(shù)中的素?cái)?shù)

    if len(primelist)==4:

        if m:print primelist

        return True     

number=647

while True:

    if istheresult(number)and istheresult(number+1)and istheresult(number+2) and istheresult(number+3):

        print number,istheresult(number,1)

        print number+1,istheresult(number+1,1)

        print number+2,istheresult(number+2,1)

        print number+3,istheresult(number+3,1)

        break

    else:

        number+=1

答案：
134043 [3, 7, 13, 491]
134044 [23, 31, 47, 2]
134045 [5, 17, 19, 83]
134046 [3, 11, 677, 2]

[ Last edited by tieer on 2011-9-7 at 20:56 ]

贊一下(2人)

回復(fù)此樓

思考，讓這個(gè)世界更有趣。

2樓2011-09-07 20:30:18

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wangww2011

木蟲 (著名寫手)

程序強(qiáng)帖: 13
應(yīng)助: 11 (小學(xué)生)
金幣: 4023.1
散金: 2709
紅花: 18
沙發(fā): 1
帖子: 1915
在線: 1537.1小時(shí)
蟲號(hào): 772953
注冊: 2009-05-17
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

★ ★ ★
余澤成(金幣+3, 程序強(qiáng)帖+1): 辛苦！ 2011-09-07 22:04:18

我也貼出平庸版本吧

CODE:

644

134043

CODE:

#!/usr/bin/env python

from math import sqrt

def primeN(n):

    t=[n]

    while True:

        for i in range(2,int(sqrt(t[0])+1)):

            if t[0]%i==0:

                t.append(i)

                t[0]=t[0]/i

                break

        else:

            break

    return len(set(t))

def euler47(num):

    n=1

    while True:

        for i in range(num):

            if primeN(n+i)!=num:

                break

        else:

            break

        n+=1

    return n

if __name__ == "__main__":

    print euler47(3)

    print euler47(4)

還有一個(gè)經(jīng)典解法為(看到的)：

CODE:

n=200000

factors=[0]*n

for i in range(2,n): 

    if factors[i] == 0 :

        for j in range(2*i,n,i):

            factors[j] += 1

for i in range(2,n):

    if factors[i:i+4]==4*[4]:

        print i

[ Last edited by wangww2011 on 2011-9-7 at 23:07 ]

贊一下(1人)

回復(fù)此樓

3樓2011-09-07 21:44:52

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強(qiáng)帖: 40
應(yīng)助: 817 (博后)
金幣: 12914.1
紅花: 64
帖子: 2238
在線: 287.3小時(shí)
蟲號(hào): 696514
注冊: 2009-02-05
專業(yè): 計(jì)算機(jī)軟件

★ ★ ★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖
jjdg(金幣+2): 感謝參與 2011-09-08 10:06:50

matlab

CODE:

% ans =

%       134043

function result = euler47()

tic;

result = 644;

while 1

    result = result+1;

    if length(unique(factor(result)))==4 && ...

            length(unique(factor(result+1)))==4 && ...

            length(unique(factor(result+2)))==4 && ...

            length(unique(factor(result+3)))==4

        break;

    end

end

toc;

end

贊一下(2人)

回復(fù)此樓

matlab/VB/python/c++/Java寫程序請發(fā)QQ郵件:790404545@qq.com

4樓2011-09-08 01:09:04

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

chyanog

金蟲 (小有名氣)

程序強(qiáng)帖: 1
應(yīng)助: 12 (小學(xué)生)
金幣: 808.1
紅花: 5
帖子: 85
在線: 52.8小時(shí)
蟲號(hào): 1540955
注冊: 2011-12-17
性別: GG
專業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

★
小木蟲: 金幣+0.5, 給個(gè)紅包，謝謝回帖

Mathematica做Project euler優(yōu)勢更大，
樓上的matlab代碼運(yùn)行了40s，mathematica版的1.4s

CODE:

(*method1*)

Catch@Do[

   If[

    Length@FactorInteger[i] == 4 &&

     Length@FactorInteger[i + 1] == 4 && 

     Length@FactorInteger[i + 2] == 4 &&

     Length@FactorInteger[i + 3] == 4, Throw@i],

   {i, 10^6}] // AbsoluteTiming

(*method2*)

i = 1;

NestWhile[Length@FactorInteger[i++] != 4 &, , Or, 4]; // AbsoluteTiming

i - 4

贊一下

回復(fù)此樓

5樓2013-09-15 18:32:16

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 wangww2011 的主題更新

返回列表

普通表情龍兔虎貓高級(jí)回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 08工學(xué)調(diào)劑 +6	用戶573181 2026-03-20	10/500	2026-03-23 11:04 by 用戶573181
[考研] 333求調(diào)劑 +6	87639 2026-03-21	10/500	2026-03-23 10:41 by Iveryant
[考研] 北科281學(xué)碩材料求調(diào)劑 +8	tcxiaoxx 2026-03-20	8/400	2026-03-23 10:16 by 冠c哥
[考研] 環(huán)境學(xué)碩288求調(diào)劑 +6	皮皮皮123456 2026-03-22	6/300	2026-03-22 16:52 by i_cooler
[考研] 一志愿中南化學(xué)（0703）總分337求調(diào)劑 +9	niko- 2026-03-19	10/500	2026-03-22 16:08 by ColorlessPI
[考研] 269專碩求調(diào)劑 +6	金恩貝 2026-03-21	6/300	2026-03-22 14:31 by ColorlessPI
[考研] 考研調(diào)劑 +4	來好運(yùn)來來來 2026-03-21	4/200	2026-03-22 12:15 by 星空星月
[考研] 280求調(diào)劑 +11	咕嚕曉曉 2026-03-18	12/600	2026-03-21 22:40 by ACS Nano——
[考研] 279分求調(diào)劑一志愿211 +14	chaojifeixia 2026-03-19	15/750	2026-03-21 13:24 by zhukairuo
[考研] 求調(diào)劑 +6	Mqqqqqq 2026-03-19	6/300	2026-03-21 08:04 by JourneyLucky
[考研] 271材料工程求調(diào)劑 +8	.6lL 2026-03-18	8/400	2026-03-21 00:58 by JourneyLucky
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境專碩，總分308求調(diào)劑 +3	墨墨漠 2026-03-18	3/150	2026-03-21 00:39 by JourneyLucky
[考研] 330求調(diào)劑 +4	小材化本科 2026-03-18	4/200	2026-03-20 23:13 by JourneyLucky
[考研] 295復(fù)試調(diào)劑 +8	簡木ChuFront 2026-03-19	8/400	2026-03-20 20:44 by zhukairuo
[考研] 廣西大學(xué)家禽遺傳育種課題組2026年碩士招生（接收計(jì)算機(jī)專業(yè)調(diào)劑） +3	123阿標(biāo) 2026-03-17	3/150	2026-03-20 15:58 by 飛行琦
[考研] 招收調(diào)劑碩士 +4	lidianxing 2026-03-19	12/600	2026-03-20 12:25 by lidianxing
[考研] 085410人工智能專碩317求調(diào)劑（0854都可以） +4	xbxudjdn 2026-03-18	4/200	2026-03-20 09:07 by 不168
[考研] 一志愿福大288有機(jī)化學(xué)，求調(diào)劑 +3	小木蟲200408204 2026-03-18	3/150	2026-03-19 13:31 by houyaoxu
[考研] 本科鄭州大學(xué)物理學(xué)院，一志愿華科070200學(xué)碩，346求調(diào)劑 +4	我不是一根蔥 2026-03-18	4/200	2026-03-19 09:11 by 浮云166
[考研] 085601求調(diào)劑 +4	Du.11 2026-03-16	4/200	2026-03-17 17:08 by ruiyingmiao

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時(shí)熱門版塊排行榜

wangww2011

[交流] Project Euler 47 歐拉工程 47 題 已有3人參與

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:

tieer

wangww2011

libralibra

chyanog

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[交流] Project Euler 47 歐拉工程 47 題已有3人參與