应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » Euler 工程 第四十四题
51/1返回列表
查看: 1080  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

holmescn

金虫 (正式写手)

[交流] Euler 工程 第四十四题 已有3人参与

五角数的通项(n) = n(3n-1)/2, 前10个五角数:
1, 5, 12, 22, 35, 51, 70, 92, 117, 145, ...
其中可见P(4) + P(7) = 22 + 70 = 92 = P(8), 但P(4)-P(7) = 48却不是一个五角数.

找一对五角数P(i), P(j), 满足它们的和和差都还是五角数. 且差的绝对值最小,  求它们的差的绝对值.

PS: 怎么感觉是个数学题啊.
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-07-19 09:40:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wangww2011

木虫 (著名写手)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
xzhdty(金币+2): 欢迎常来 2011-07-19 17:06:32
ben_ladeng: 2011-08-02 08:07:16
暴力破解吧 实现起来最简单  虽然没有任何计算含量
CODE:
import math
p=[1]
n=1

def isPentagonal(a):
    b=(1+math.sqrt(1+24*a))/6
    if b-int(b)==0:
        return True
    else:
        return False

flag=True
while flag:
    n=n+1
    p.append(int(n*(3*n-1)/2))
    for i in range(n-2,-1,-1):
        n1=p[n-1]+p[i]
        n2=p[n-1]-p[i]
        if isPentagonal(n1) and isPentagonal(n2):
            print(n2)
            flag=False
            break

结果为 5482660

[ Last edited by wangww2011 on 2011-7-19 at 12:01 ]
赞一下(3人) 回复此楼
2楼2011-07-19 11:57:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tieer

木虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 21:11:56
看着像是数学题，可是实在却找不到解法啊，连压缩范围都做不到，呵呵，期待高手吧，
赞一下(2人) 回复此楼
思考，让这个世界更有趣。
3楼2011-07-19 15:44:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
xzhdty(金币+2): 谢谢 2011-07-19 17:07:00
c的
// 5482660
CODE:
#include
#include
#include

using namespace std;

bool isPentNum(int n)
{
    float x = (sqrt((float)(24*n+1))+1)/6;
    if(int(x)==x)
        return true;
    else
        return false;
}


int main()
{
    bool flag = false;
    int i=1,j=1;

    for(i=1; i<10000000; ++i)
    {
        if(isPentNum(i))
        {
            //cout << "i: " << i << endl;

            for(j=1; j             {
                //cout << "j: " << j << endl;

                if(isPentNum(j))
                {
                    if(isPentNum(i-j) && isPentNum(i+j))
                    {
                        cout << "Done!" << i-j << endl;
                        flag = true;
                        break;
                    }

                }
            }

            if(flag)
                break;
        }
    }

    return 0;
}
赞一下(2人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
4楼2011-07-19 16:13:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
jjdg(金币+1): 感谢你的积极参与 2011-07-21 10:08:36
我也暴力一下:
CODE:
p = [n*(3*n-1)/2 for n in xrange(1,10000)]
d = p[-1]
p = set(p)

for x in p:
    for y in p:
        if x + y in p and x - y in p and x != y:
            if abs(x-y) < d:
                d = abs(x-y)

print d

这样的数对,在五角数中是对偶的, 也就是如果(P(I),P(J))的和和差分别是P(M), P(N),, 则(P(M), P(N))的和和差分别是P(I) , P(J)
赞一下(1人) 回复此楼
5楼2011-07-19 16:42:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 holmescn 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 厉娜 +3 张丹枫1991 2026-11-09 3/150 2026-11-09 14:58 by 天下第一剑
[考博] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 12/600 2026-11-09 13:26 by Equinoxhua
[考研] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 15/750 2026-11-09 13:19 by Equinoxhua
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +6 5sJFDKp2kwuI 2026-11-06 14/700 2026-11-09 11:52 by GwrQVVR6Oenx
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +5 5sJFDKp2kwuI 2026-11-06 16/800 2026-11-09 11:47 by GwrQVVR6Oenx
[考博] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +5 5sJFDKp2kwuI 2026-11-06 15/750 2026-11-09 11:41 by GwrQVVR6Oenx
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 10/500 2026-11-09 08:00 by IhnEQauGmT3K
[考研] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 12/600 2026-11-09 06:32 by l48hFd8Nwae2
[公派出国] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-09 00:14 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-08 23:01 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[教师之家] 延安大学回应“副教授留绝笔信”：确已离世，正核实举报内容 +3 yexuqing 2026-11-04 5/250 2026-11-07 13:22 by 苏东坡二世
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +6 kvewwGtKktqB 2026-11-04 16/800 2026-11-06 05:00 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-06 02:02 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
信息提示
关闭
请填处理意见
关闭