版塊導航: 正在加載中...

登錄注冊

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

24小時熱門版塊排行榜

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

本帖產(chǎn)生 2 個程序強帖，點擊這里進行查看

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

wangww2011

木蟲 (著名寫手)

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

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

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

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

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

回復此樓

» 猜你喜歡

290分調(diào)劑求助已經(jīng)有4人回復
0703化學調(diào)劑，求導師收已經(jīng)有12人回復
320分，材料與化工專業(yè)，求調(diào)劑已經(jīng)有14人回復
求調(diào)劑已經(jīng)有5人回復
070300化學354求調(diào)劑已經(jīng)有9人回復
求調(diào)劑：085600材料與化工，考材科基，總分319 已經(jīng)有10人回復
本科211生物醫(yī)學工程085409求調(diào)劑339分已經(jīng)有5人回復
313求調(diào)劑已經(jīng)有5人回復
362求調(diào)劑已經(jīng)有3人回復
化學工程085602 305分求調(diào)劑已經(jīng)有27人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

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

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

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

wangww2011

木蟲 (著名寫手)

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

★ ★ ★
余澤成(金幣+3, 程序強帖+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)

還有一個經(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人)

回復此樓

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

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

查看全部 5 個回答

tieer

木蟲 (正式寫手)

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

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

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

CODE:

# -*- coding: cp936 -*-

#Project Euler 47 歐拉工程 47 題

#前四個連續(xù)的擁有四個素數(shù)因子的數(shù)，這四個數(shù)中的第一個數(shù)是多少？

from math import sqrt

def isprime(p):                    #驗證素數(shù)，素數(shù)則返回素數(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ù)中的素數(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人)

回復此樓

思考，讓這個世界更有趣。

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

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

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

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

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
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人)

回復此樓

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

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

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

chyanog

金蟲 (小有名氣)

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

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

Mathematica做Project euler優(yōu)勢更大，
樓上的matlab代碼運行了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

贊一下

回復此樓

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

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

查看全部 5 個回答

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

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

[考研] 311求調(diào)劑一志愿合肥工業(yè)大學 +6	秋二十二 2026-03-30	6/300	2026-03-31 10:24 by 不吃魚的貓
[考研] 看看我！301求調(diào)劑 081700 +3	一個小明同學 2026-03-24	3/150	2026-03-31 09:40 by longlotian
[考研] 323分食品與營養(yǎng)調(diào)劑 +3	嘿ooo 2026-03-31	3/150	2026-03-31 09:38 by longlotian
[考研] 288資源與環(huán)境專碩求調(diào)劑，不限專業(yè)，有學上就行 +11	lllllos 2026-03-30	11/550	2026-03-30 21:19 by 研究僧導導
[考研] 303求調(diào)劑 +7	DLkz1314. 2026-03-30	7/350	2026-03-30 21:07 by peike
[考研] 295材料工程專碩求調(diào)劑 +10	1428151015 2026-03-27	10/500	2026-03-30 19:00 by 源_2020
[考研] 求化學調(diào)劑 +11	wulanna 2026-03-28	11/550	2026-03-30 10:59 by 探123
[考研] 298求調(diào)劑 +4	種圣賜 2026-03-28	4/200	2026-03-29 08:42 by q1092522407
[考研] 321求調(diào)劑 +7	璞玉~~ 2026-03-25	8/400	2026-03-29 06:41 by 544594351
[考研] 316求調(diào)劑 +7	江辭666 2026-03-26	7/350	2026-03-28 21:28 by sanrepian
[考研] 343求調(diào)劑 +5	愛羈絆 2026-03-28	5/250	2026-03-28 20:53 by 唐沐兒
[考研] 308求調(diào)劑 +7	墨墨漠 2026-03-27	7/350	2026-03-28 07:43 by 熱情沙漠
[考研] 295求調(diào)劑 +5	1428151015 2026-03-27	6/300	2026-03-28 04:04 by fmesaito
[考研] 一志愿吉大071010，316分求調(diào)劑 +3	xgbiknn 2026-03-27	3/150	2026-03-27 10:36 by guoweigw
[考研] 求調(diào)劑 +6	林之夕 2026-03-24	6/300	2026-03-27 08:38 by hypershenger
[考研] 調(diào)劑求收留 +7	果然有我 2026-03-26	7/350	2026-03-27 00:26 by wxiongid
[考研] 085602化學工程求調(diào)劑。 +4	平樂樂樂 2026-03-26	4/200	2026-03-26 17:57 by fmesaito
[考研] 303求調(diào)劑 +6	藍山月 2026-03-25	6/300	2026-03-25 22:47 by 418490947
[考研] 求b區(qū)院校調(diào)劑 +4	周56 2026-03-24	5/250	2026-03-25 17:12 by yishunmin
[考研] 一志愿武理085500機械專業(yè)總分300求調(diào)劑 +3	an10101 2026-03-24	7/350	2026-03-25 00:00 by 山鬼0-

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

24小時熱門版塊排行榜

wangww2011

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

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

wangww2011

tieer

libralibra

chyanog

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

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

» 本主題相關價值貼推薦，對您同樣有幫助: