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

登錄注冊

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

24小時熱門版塊排行榜

返回列表

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

wangww2011

木蟲 (著名寫手)

程序強(qiáng)帖: 13
應(yīng)助: 11 (小學(xué)生)
金幣: 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ù)擁有兩個素?cái)?shù)因子的數(shù)是:
14 = 2 * 7
15 = 3 * 5

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

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

回復(fù)此樓

» 猜你喜歡

323求調(diào)劑已經(jīng)有6人回復(fù)
一志愿北京化工大學(xué) 070300 學(xué)碩 336分求調(diào)劑已經(jīng)有4人回復(fù)
352求調(diào)劑已經(jīng)有3人回復(fù)
一志愿東華大學(xué)化學(xué)070300，求調(diào)劑已經(jīng)有8人回復(fù)
277材料科學(xué)與工程080500求調(diào)劑已經(jīng)有7人回復(fù)
317求調(diào)劑已經(jīng)有18人回復(fù)
293求調(diào)劑已經(jīng)有5人回復(fù)
280分求調(diào)劑一志愿085802 已經(jīng)有7人回復(fù)
0854電子信息求調(diào)劑已經(jīng)有3人回復(fù)
263求調(diào)劑已經(jīng)有4人回復(fù)

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

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小時
蟲號: 761880
注冊: 2009-05-02
專業(yè): 高分子材料結(jié)構(gòu)與性能

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

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

CODE:

# -*- coding: cp936 -*-

#Project Euler 47 歐拉工程 47 題

#前四個連續(xù)的擁有四個素?cái)?shù)因子的數(shù)，這四個數(shù)中的第一個數(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ù)此樓

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

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小時
蟲號: 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)

還有一個經(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小時
蟲號: 696514
注冊: 2009-02-05
專業(yè): 計(jì)算機(jī)軟件

★ ★ ★
小木蟲(金幣+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人)

回復(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小時
蟲號: 1540955
注冊: 2011-12-17
性別: GG
專業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

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

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 的主題更新

返回列表

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

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

[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +6	生物工程調(diào)劑 2026-03-17	10/500	2026-03-22 20:22 by edmund7
[考研] 284求調(diào)劑 +5	Zhao anqi 2026-03-22	5/250	2026-03-22 17:38 by barlinike
[考研] 324求調(diào)劑 +6	lucky呀呀呀鴨 2026-03-20	6/300	2026-03-22 16:01 by ColorlessPI
[考研] 生物學(xué)調(diào)劑 +5	Surekei 2026-03-21	5/250	2026-03-22 14:39 by tcx007
[考研] 303求調(diào)劑 +5	安憶靈 2026-03-22	6/300	2026-03-22 12:46 by 素顏傾城1988
[考研] 330求調(diào)劑0854 +3	assdll 2026-03-21	3/150	2026-03-21 13:01 by 搏擊518
[考研] 085601調(diào)劑 358分 +3	zzzzggh 2026-03-20	4/200	2026-03-21 10:21 by luoyongfeng
[考研] 307求調(diào)劑 +3	wyyyqx 2026-03-17	3/150	2026-03-21 03:20 by JourneyLucky
[考研] 二本跨考鄭大材料306英一數(shù)二 +3	z1z2z3879 2026-03-17	3/150	2026-03-21 02:29 by JourneyLucky
[考研] 一志愿華南師大 070300（化學(xué)）304分求調(diào)劑 +3	0703武芊慧雪304 2026-03-18	3/150	2026-03-21 00:48 by JourneyLucky
[考研] 274求調(diào)劑 +10	S.H1 2026-03-18	10/500	2026-03-20 23:51 by JourneyLucky
[考研] 南京大學(xué)化學(xué)376求調(diào)劑 +3	hisfailed 2026-03-19	6/300	2026-03-20 23:43 by hisfailed
[考研] 一志愿武漢理工材料工程專碩調(diào)劑 +9	Doleres 2026-03-19	9/450	2026-03-20 22:36 by JourneyLucky
[考研] 中南大學(xué)化學(xué)學(xué)碩337求調(diào)劑 +3	niko- 2026-03-19	6/300	2026-03-20 21:58 by luoyongfeng
[考研] 295材料求調(diào)劑，一志愿武漢理工085601專碩 +5	Charlieyq 2026-03-19	5/250	2026-03-20 20:35 by JourneyLucky
[考研] 344求調(diào)劑 +6	knight344 2026-03-16	7/350	2026-03-18 20:13 by walc
[考研] 材料專碩306英一數(shù)二 +10	z1z2z3879 2026-03-16	13/650	2026-03-18 14:20 by 007_lilei
[考研] 考研求調(diào)劑 +3	橘頌. 2026-03-17	4/200	2026-03-17 21:43 by 有只貍奴
[考研] 277調(diào)劑 +5	自由煎餅果子 2026-03-16	6/300	2026-03-17 19:26 by 李leezz
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao

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

24小時熱門版塊排行榜

wangww2011

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

» 猜你喜歡

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

tieer

wangww2011

libralibra

chyanog

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

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

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