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

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

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

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

返回列表

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

wangww2011

木蟲(chóng) (著名寫(xiě)手)

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

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

好久沒(méi)有人發(fā)了，我來(lái)接著發(fā)吧
三角數(shù)，五角數(shù)和六角數(shù)可以用下面的公式產(chǎn)生：

三角數(shù)      Tn=n(n+1)/2      1, 3, 6, 10, 15, ...
五角數(shù)      Pn=n(3n-1)/2      1, 5, 12, 22, 35, ...
六角數(shù)l      Hn=n(2n-1)      1, 6, 15, 28, 45, ...
可以證實(shí) T285 = P165 = H143 = 40755.

請(qǐng)找到下一個(gè)同時(shí)是五角數(shù)和六角數(shù)的三角數(shù)。

PS 雖然沒(méi)有什么意思，但是為了連續(xù)性，還是逐個(gè)發(fā)吧

回復(fù)此樓

» 猜你喜歡

化工調(diào)劑303分，過(guò)四級(jí) 已經(jīng)有5人回復(fù)
071000生物學(xué)調(diào)劑已經(jīng)有3人回復(fù)
一志愿華東理工大學(xué)，080500學(xué)碩，317分，求調(diào)劑已經(jīng)有10人回復(fù)
327求調(diào)劑已經(jīng)有9人回復(fù)
0856初試324分求調(diào)劑已經(jīng)有6人回復(fù)
08開(kāi)頭看過(guò)來(lái)！��！已經(jīng)有6人回復(fù)
材料調(diào)劑已經(jīng)有7人回復(fù)
一志愿北京科技大學(xué)085601材料工程英一數(shù)二初試總分335求調(diào)劑已經(jīng)有8人回復(fù)
085900土木水利336分求調(diào)劑已經(jīng)有6人回復(fù)
319求調(diào)劑已經(jīng)有13人回復(fù)

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

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 47 歐拉工程 47 題已經(jīng)有4人回復(fù)
Project Euler 46 歐拉工程 46 題已經(jīng)有8人回復(fù)
Euler 工程第三十八題已經(jīng)有9人回復(fù)
Euler 工程第廿九題：有多少不同的項(xiàng)? 已經(jīng)有30人回復(fù)
Euler 工程第廿六題：最長(zhǎng)的循環(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題：找最長(zhǎng)的數(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-02 14:52:50

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

libralibra

至尊木蟲(chóng) (著名寫(xiě)手)

驃騎將軍

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

★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖
dubo(金幣+1): 歡迎討論 2011-09-02 19:57:09
ben_ladeng: 2011-09-02 22:50:55
余澤成(程序強(qiáng)帖+1): 2011-09-04 23:38:45

matlab code ,暴力解

CODE:

%% Find the next triangle number that is also pentagonal and hexagonal.

% It can be verified that T285 = P165 = H143 = 40755.

% Triangle                   Tn=n(n+1)/2

% Pentagonal                   Pn=n(3n?1)/2

% Hexagonal                   Hn=n(2n?1)

% Elapsed time is 0.095221 seconds.

% ans =

%                 1533776805

function result = euler45()

tic;

n = 1000;

t = (1:n).*((1:n)+1)/2;

p = (1:n).*(3*(1:n)-1)/2;

h = (1:n).*(2*(1:n)-1);

result = max(h(ismember(h,t(ismember(t,p))))); % n<1000時(shí)最大的同時(shí)是t,p,h的數(shù)

while result<40775

    n = n*10;

    t = (1:n).*((1:n)+1)/2;

    p = (1:n).*(3*(1:n)-1)/2;

    h = (1:n).*(2*(1:n)-1);

    result = max(h(ismember(h,t(ismember(t,p)))));

end

toc;

end

贊一下(4人)

回復(fù)此樓

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

2樓2011-09-02 16:16:07

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

tieer

木蟲(chóng) (正式寫(xiě)手)

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

★ ★ ★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖
dubo(金幣+1): 歡迎討論 2011-09-02 19:57:15
余澤成(金幣+2, 程序強(qiáng)帖+1): 歡迎常來(lái)程序語(yǔ)言版 2011-09-04 23:38:55

自學(xué)了一段時(shí)間python，第一次做題啊，呵呵。

CODE:

# -*- coding: cp936 -*-

# Project Euler 45

# Tn=n(n+1)/2 

# Pn=n(3n-1)/2

# Hn=n(2n-1)

# 遞增六角數(shù)，驗(yàn)證其是否為三角及五角數(shù)

from math import sqrt

def isTriangle(t):

    if ((sqrt(8*t+1)-1)/2)%1==0:   #用六角數(shù)的值解得三角數(shù)公式的n值，驗(yàn)證其是否整數(shù)

        return True

def isPentagonal(p):

    if ((sqrt(24*p+1)+1)/6)%1==0: #同上

        return True

h=144

while h:

    m=h*(2*h-1)

    if isTriangle(m) and isPentagonal(m):

        print ('T%d, P%d, H%d,the number is: %d')%((sqrt(8*m-1)-1)/2,(sqrt(24*m+1)+1)/6,h,m)

        break

    else:

        h+=1

結(jié)果
T55384, P31977, H27693,the number is: 1533776805

PS:我都是在自學(xué)python，不是程序員科班出身的，有什么不對(duì)的幼稚的地方，各位多指教，呵呵，感激不盡

[ Last edited by tieer on 2011-9-3 at 23:23 ]

贊一下(3人)

回復(fù)此樓

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

3樓2011-09-02 19:50:39

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

wangww2011

木蟲(chóng) (著名寫(xiě)手)

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

ben_ladeng: 2011-09-02 22:51:04

引用回帖:

3樓: Originally posted by tieer at 2011-09-02 19:50:39:
自學(xué)了一段時(shí)間python，第一次做題啊，呵呵，不會(huì)用BBcode，見(jiàn)諒。

# -*- coding: cp936 -*-
# Project Euler 45
# Tn=n(n+1)/2
# Pn=n(3n-1)/2
# Hn=n(2n-1)
# 遞增六角數(shù)，驗(yàn)證其是否為三角及五角數(shù)
...

BBcode很容易使用，譬如你想顯示代碼

CODE:

[code]Your code[/code ]

注意其實(shí)應(yīng)該沒(méi)有空格，為[/code]

贊一下(1人)

回復(fù)此樓

4樓2011-09-02 21:41:53

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

tieer

木蟲(chóng) (正式寫(xiě)手)

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

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

引用回帖:

4樓: Originally posted by wangww2011 at 2011-09-02 21:41:53:
BBcode很容易使用，譬如你想顯示代碼

CODE:

[code]Your code[/code ]

注意其實(shí)應(yīng)該沒(méi)有空格，為[/code]

明白了，謝謝啊，呵呵，見(jiàn)笑

贊一下(1人)

回復(fù)此樓

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

5樓2011-09-02 21:52:29

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

wangww2011

木蟲(chóng) (著名寫(xiě)手)

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

★ ★
余澤成(金幣+2, 程序強(qiáng)帖+1): 謝謝參與討論！ 2011-09-04 23:39:48

python 偷懶版

CODE:

n=100000

Tn=[i*(i+1)/2 for i in range(285,n)]

Pn=[i*(3*i-1)/2 for i in range(165,n)]

Hn=[i*(2*i-1) for i in range(143,n)]

print set(Tn)&set(Pn)&set(Hn)

結(jié)果為

CODE:

set([40755, 1533776805L])

所以1533776805即為所求

贊一下(1人)

回復(fù)此樓

6樓2011-09-03 09:41:36

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

huycwork

金蟲(chóng) (著名寫(xiě)手)

程序強(qiáng)帖: 22
應(yīng)助: 0 (幼兒園)
金幣: 953
散金: 663
紅花: 8
沙發(fā): 13
帖子: 1080
在線: 264.1小時(shí)
蟲(chóng)號(hào): 1257243
注冊(cè): 2011-04-06
專業(yè): 金融學(xué)

★ ★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖
余澤成(金幣+2, 程序強(qiáng)帖+1): 謝謝參與討論！ 2011-09-04 23:40:11

起始三角數(shù)是不用求的撒~

CODE:

Hn = 2n(2n-1)/2 = (2n-1+1)(2n-1)/2 = T(2n-1)

這個(gè)式子說(shuō)明六角數(shù)是三角數(shù)的子集，只需要驗(yàn)證三角數(shù)或者六角數(shù)的集合與五角數(shù)集合相交即可。
Perl版：

CODE:

#usr/bin/perl

print join ",", grep{(sqrt(24*$_+1)+1)/6 == int((sqrt(24*$_+1)+1)/6)}map{$_* (2*$_-1)} (143..30000);

NOTE：3樓那位同學(xué)很有新意地使用%1這樣的求余，但是這個(gè)操作僅僅只對(duì)支持浮點(diǎn)數(shù)求余的語(yǔ)言才有效，據(jù)我所知，絕大多數(shù)的語(yǔ)言僅支持整數(shù)求余，像Perl里面就行不通。還是得揮刀先cut一下。
if-else也不是必須的，因?yàn)?=本身返回一個(gè)bool值。

贊一下(2人)

回復(fù)此樓

漩渦的中心有一塊空地，空空的。

7樓2011-09-03 12:47:13

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

tieer

木蟲(chóng) (正式寫(xiě)手)

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

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

引用回帖:

7樓: Originally posted by huycwork at 2011-09-03 12:47:13:
起始三角數(shù)是不用求的撒~

CODE:

Hn = 2n(2n-1)/2 = (2n-1+1)(2n-1)/2 = T(2n-1)

這個(gè)式子說(shuō)明六角數(shù)是三角數(shù)的子集，只需要驗(yàn)證三角數(shù)或者六角數(shù)的集合與五角數(shù)集合相交即可。
Perl版：
[code]
#usr/ ...

呵呵，受教了，我這python是自學(xué)的，以前就學(xué)過(guò)一點(diǎn)點(diǎn)c的皮毛，呵呵，差的遠(yuǎn)呢，謝謝啊。
不過(guò)話說(shuō)回來(lái)，你這招轉(zhuǎn)換發(fā)現(xiàn)六角數(shù)和三角數(shù)的關(guān)系，確實(shí)很好啊，這樣計(jì)算量少一半的，

贊一下(1人)

回復(fù)此樓

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

8樓2011-09-03 23:15:13

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

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

返回列表

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

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

[考研] 一志愿085600中科院寧波所276分求調(diào)劑 +24	材料學(xué)257求調(diào)劑 2026-03-28	25/1250	2026-04-02 11:27 by -迷了路啊路
[考研] 266分，一志愿電氣工程，本科材料，求材料專業(yè)調(diào)劑 +3	哇呼哼呼哼 2026-04-02	3/150	2026-04-02 10:41 by caotw2020
[考研] 333求調(diào)劑 +3	12138。、m?x?b 2026-03-26	4/200	2026-04-02 09:58 by olim
[考研] 275學(xué)碩081000服從調(diào)劑到其他專業(yè)，保不住本專業(yè)了 +6	一只小小水牛 2026-04-02	7/350	2026-04-02 09:53 by zhyzzh
[考研] 材料求調(diào)劑 +10	呢呢妮妮 2026-04-01	13/650	2026-04-02 09:17 by olim
[考研] 求調(diào)劑推薦材料 304 +21	荷包蛋hyj 2026-03-26	21/1050	2026-04-01 21:09 by lijunpoly
[考研] 284求調(diào)劑 +12	小熊～～ 2026-03-31	12/600	2026-04-01 20:23 by 花??
[考研] 一志愿中農(nóng)0710生物學(xué)，微生物方向總分338求調(diào)劑 +3	柒xxxx. 2026-03-26	3/150	2026-04-01 12:30 by 冰烏龍
[考研] 358求調(diào)劑 +3	王向陽(yáng)花 2026-03-31	3/150	2026-04-01 09:56 by zzchen2000
[考研] 【調(diào)劑】一志愿廈大生物與醫(yī)藥調(diào)劑 +3	Echo蝦米 2026-03-31	3/150	2026-04-01 08:40 by JourneyLucky
[考研] 求調(diào)劑：一志愿：南京大學(xué) 專業(yè)：0705 總分320 ，本科985，四六級(jí)已過(guò) +3	lfy760306 2026-03-31	3/150	2026-04-01 01:57 by Creta
[考研] 一志愿華東師范大學(xué)有機(jī)化學(xué)專業(yè)，初試351分，復(fù)試被刷求調(diào)劑! +9	真名有冰 2026-03-29	10/500	2026-03-31 18:01 by xhai2011
[考研] 一志愿中海洋材料357 +4	麥恩莉. 2026-03-30	4/200	2026-03-31 14:35 by 記事本2026
[考研] 297 地理學(xué)070500 復(fù)試求調(diào)劑 +3	小圓圈圈ooo 2026-03-30	3/150	2026-03-30 21:05 by 余震yz
[考研] 0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分 +7	Shern—- 2026-03-28	7/350	2026-03-30 16:31 by nothing投稿中
[考研] 085602 化學(xué)工程專碩 340分求調(diào)劑 +4	qianbai11 2026-03-29	4/200	2026-03-30 11:34 by 唐沐兒
[考研] 296求調(diào)劑 +10	彼岸t 2026-03-29	10/500	2026-03-30 10:50 by 探123
[考研] 312，生物學(xué)求調(diào)劑 +3	小譯同學(xué)abc 2026-03-28	3/150	2026-03-28 15:32 by 落�？伤�
[考研] 復(fù)試調(diào)劑 +3	raojunqi0129 2026-03-28	3/150	2026-03-28 15:27 by 落�？伤�
[考研] 070300化學(xué)求調(diào)劑 +4	起個(gè)名咋這么難 2026-03-27	4/200	2026-03-27 21:39 by 83503孫老師

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

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

» 猜你喜歡

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

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