|
|
本帖最后由 天山草 于 2016-12-15 16:29 编辑
楼主说：我一直验证到第200个
我给你验证到 2000 个：
s = 0;
For[k = 0, k <= 25600, k++,
If[PrimeQ[7 + 30 k] && PrimeQ[29 + 120 k], s = s + 1;
Print[s, "---", k, "---", 7 + 30 k, "----", 29 + 120 k, "---",
MultiplicativeOrder[10, 120 k + 29] == 120 k + 28]]]
1---0---7----29---True
2---1---37----149---True
3---2---67----269---True
4---3---97----389---True
5---4---127----509---True
6---9---277----1109---True
7---10---307----1229---True
8---16---487----1949---True
9---19---577----2309---True
10---24---727----2909---True
11---33---997----3989---True
12---36---1087----4349---True
13---43---1297----5189---True
14---44---1327----5309---True
15---52---1567----6269---True
16---53---1597----6389---True
17---59---1777----7109---True
18---66---1987----7949---True
19---67---2017----8069---True
20---81---2437----9749---True
21---88---2647----10589---True
22---89---2677----10709---True
23---92---2767----11069---True
24---96---2887----11549---True
25---101---3037----12149---True
26---102---3067----12269---True
27---110---3307----13229---True
28---115---3457----13829---True
29---121---3637----14549---True
30---130---3907----15629---True
31---135---4057----16229---True
32---143---4297----17189---True
33---148---4447----17789---True
34---152---4567----18269---True
35---166---4987----19949---True
36---173---5197----20789---True
37---184---5527----22109---True
38---185---5557----22229---True
39---200---6007----24029---True
40---208---6247----24989---True
41---211---6337----25349---True
42---212---6367----25469---True
43---213---6397----25589---True
44---218---6547----26189---True
45---219---6577----26309---True
46---234---7027----28109---True
47---235---7057----28229---True
48---241---7237----28949---True
49---247---7417----29669---True
50---250---7507----30029---True
51---257---7717----30869---True
52---262---7867----31469---True
53---267---8017----32069---True
………………………………………………………………
1996---25496---764887----3059549---True
1997---25510---765307----3061229---True
1998---25530---765907----3063629---True
1999---25541---766237----3064949---True
2000---25546---766387----3065549---True
2001---25565---766957----3067829---True
2002---25567---767017----3068069---True
2003---25586---767587----3070349---True
2004---25587---767617----3070469---True
2005---25589---767677----3070709---True
2006---25595---767857----3071429---True |
|
IP卡
狗仔卡
发表于 2016-12-12 08:05
显身卡