a(n)=â[k=1,n]gcd(k,n)
ãšãããšã
{a(n)}:1,3,5,8,9,15,
a(n)+1â¡0 (mod n) <==> nã¯çŽ æ°ã§ãã
ãäºæ³ãããã®ãç¥ããŸããã
確ãã«n=2ïœ1000ãŸã§ã®æ§åãèŠãŠã¿ããš
gp > a(n)=sum(k=1,n,gcd(k,n))
gp > for(n=2,1000,if(Mod(a(n)+1,n)==0,print1(n",")))
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47,
53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113,
127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197,
199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281,
283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379,
383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463,
467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571,
577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659,
661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761,
769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863,
877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977,
983, 991, 997,
primes(primepi(1000))
[2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47,
53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113,
127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197,
199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281,
283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379,
383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463,
467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571,
577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659,
661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761,
769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863,
877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977,
983, 991, 997]
ã§ãã¿ãªããŠã¯ãŸããŸãã
ãšãããN=3*37*43*42307*116341(=23492890653051)
ãšãªã£ãéšåã§
a(N)=610815156979325ã§
a(N)+1= 610815156979326 = 26*23492890653051 =26*N
ã€ãŸã
a(N)+1â¡0ã(mod N) ã«ãããããããNãåææ°
ãšãªãäºæ³ã¯ããã§ç Žç¶»ããŠããŸãã
ïŒãããªå€§ããªå€ã§åããŠç Žç¶»ããŠããŸããšã¯ïœ¥ïœ¥ïœ¥ïœ¥)
ããŠãããªç Žç¶»ãäžããŠããŸãä»ã®nã¯ããã®ãïŒ
No.3235GAI8æ28æ¥ 08:22
ã5åã®çžç°ãªãçŽ æ°ã®ç©ããšããæ¡ä»¶ã§æ€çŽ¢ãããš
æç€ºãããNã¯ãã£ãšããéã«èŠã€ããã®ã§ããã
ãã®æ¡ä»¶ã§ã¯ä»ã«ã¯ãªãããã§ããã
ïŒãã®æ¡ä»¶ãæºãããã®ã¯ä»ã«ãã£ãŠãæéåã ãšæããŸãïŒ
ã4åã以äžã§ã¯ããããååšãããã6åãã7åãã
ãã°ããæ€çŽ¢ããŠã¿ãã®ã§ãããèŠã€ãããŸããã§ããã
ïŒ7å以äžã¯ããã¹ãŠæ€çŽ¢ãã¯æéçã«ç¡çïŒ
p^3Ãq^2ÃrÃsÃtãªã©ãææ°ã2以äžã®ãã®ãå«ããã°
èŠã€ããã®ããç¥ããŸãããã
çµåããå€ãããã®ãšããããã®èšç®åŒãäœãã®ã
倧å€ãããªã®ã§ã諊ããŸãã
(远èš)
p^2ã§å²ãåãããšããgcdã®åèšãpã§å²ãåãããããªã®ã§
æ¡ä»¶ã¯æºãããªãã§ããã
ãã£ãŠãçžç°ãªãçŽ æ°ã®ç©ãã®çŽ æ°ã®åæ°ãå€ãããŠæ¢ããããªãããšããããšã«ãªããšæããŸãã
No.3236ãããã8æ29æ¥ 11:29
çžç°ãªãçŽ æ°ã®ç©ãããªãããšããã£ããšããã§
ããå°ãããã°ã©ã ãæ¹è¯ããŠå€æ°å€ç¯å²ãåºãã
6çŽ æ°ã®ç©ã«ã€ããŠæ¢ããŠã¿ãããäžã€èŠã€ãããŸããã
N = 2*13*151*34649*64783*929765438293 = 8193613126657808805087106
ã®ãšã
a(N) = (2*2-1)(2*13-1)(2*151-1)(2*34649-1)(2*64783-1)(2*929765438293-1)
= 376906203826259205034006875
ã§
a(N)+1 = 376906203826259205034006876 = 46*8193613126657808805087106
ãªã®ã§
a(N)+1â¡0 (mod N) ã〠Nãåææ°
ãšãªããŸãã
# 8193613126657808805087106ã§æ€çŽ¢ãããšãæ¢ã«ä»ã®äººãèŠã€ããŠãããšããããšãããããŸããã
No.3237ãããã8æ30æ¥ 16:23
ããããããåãïŒ
A018804ã«æ¯éç»é²ããŠãã ããã
ããååšãããªãã©ãããæ¡ä»¶ãã確å®ãããŠæ¢ãããŠããããšã«æå¿ããŸãã
ããšãçžç°ãªãçŽ æ°ã®ç©ãšããæ¡ä»¶ã§ã6åã®çŽ æ°ã®çµåããªããŠãšãã§ããªãæ°ã«
ãªããšæãããæãããŠã©ããŸã§ã®çŽ æ°ã䜿çšãããã«ãã£ãŠãã®æ°ã¯å
šãç°ãªã£ãŠ
ããŸãã
çµæãèŠãéããçŽ æ°ã®å€§ããã12æ¡ãŸã§åºãã£ãŠããã®ã§ããã®çŽ æ°ã«ãªããŸã§
gp > primepi(929765438293)
%417 = 35062717755(å)ã®çŽ æ°ããããŸããã
gp > binomial(35062717755,6)
%418 = 2580720418848458496825306224464616005861484887789012966085250(éã)
ãªã倩æåŠççµåãã«ãªããŸãã
ãããªå¯èœæ§ãããäŸã®
N = 2*13*151*34649*64783*929765438293
ãæ¢ãåºããªããŠéºŠããã®å±±ããäžæ¬ã®é»éã®éãæ¢ãåºãè¡çºã«äŸããããŸãã
ã©ãã»ã©ã®æ¢çŽ¢æéãèŠããã®ã§ããïŒ
ãªãã¡ã¢ã«
# 8193613126657808805087106ã§æ€çŽ¢ãããšãæ¢ã«ä»ã®äººãèŠã€ããŠãããšããããšãããããŸããã
ããããŸãããç§ããããããã®æ°åã§æ€çŽ¢ãããŸããããå
šãé¢ä¿ããªããã®ããçŸããªããŠ
ãããæŸãåºãã®ã¯ã©ããªææ³ãªã®ããç¥ãããã§ãã
äŸã®AIã«å°ããŠãåãããŸããã§ããã
No.3240GAI8æ31æ¥ 05:21
æ¢çŽ¢æéã¯ã1ç§ãããã§ãã
ããŸããŸãå
é ã®æ¹ãã«ãã£ãŠããã€å°ãã5åã®çŽ æ°ã
32ããã以å
ã ã£ãããéããèŠã€ãã£ãã ãã§ãã
ãå
é ã®æ¹ãã«ãªããã°å»¶ã
ãšèŠã€ãããªãã£ããšæããŸãã
çŸã«ãæ¡ä»¶ãçµã£ãŠã6çŽ å æ°ã®2åç®ããæ¢ããŠããŸãããçµãããèŠããŸããã
æ¢çŽ¢æ¹æ³ã¯ããå°ããé ã«æ±ºããŠãããæ¹æ³ã§ãã
aïŒbïŒcïŒdïŒeïŒfãšããŠããŸãaã¯2,3,5,âŠã§ããããŸããŸa=2ã®è§£ããããŸããã
bã¯åçŽã«èãããš3,5,7,11,13,âŠã§ããã
(2a-1)(2b-1)(2c-1)(2d-1)(2e-1)(2f-1)+1 ã abcdef ã§å²ãåããªããã°ãªããªããã
b=3ã¯äžé©ã§ããïŒ2a-1=3ãªã®ã§ååã¯3ã§å²ãåããã忝ã«3ããã£ãŠã¯ãªããªãããã§ãïŒïŒ
ãã£ãŠbã¯5ããéå§ããããšã«ãªããŸãã
ãã®åŠçã¯ä»ã®å€æ°ã決ãããšãã«ãè¡ããŸããäŸãã°b=7ã®ãšã2b-1=13ãªã®ã§cãdã
13ã«ããããšã¯ã§ããŸããã
ããšãããã€ãã®å€æ°ã決ããæ®µéã§ãã®ãšãã®(Σgcd+1)/Nã®æå°å€ã»æå€§å€ã決ãŸããŸããã
ãã®ç¯å²ã«æŽæ°ãååšããªãããšãå€ã
ãããŸããïŒäŸãã°æå°å€26.2ãæå€§å€26.9ãªã©ïŒ
ãã®ãšãã«æ¢çŽ¢ããããŠå€æ°ã®å€ã次ã®å€ã«ãããšãããªãéããªããŸãã
ãããŠæªå®ã®å€æ°ãæ®ãäºã€ã«ãªã£ããšãïŒã€ãŸãa,b,c,dãæ±ºãããšãïŒã«
æ®ãã®äºã€ã¯ (Ae+B)(Af+B)=kC ãšããæ¹çšåŒãç«ãŠãkã(Σgcd+1)/Nã®æå°å€ïœæå€§å€ã®
ç¯å²ãeãdïŒeïŒ(â(kC)-B)/Aã®ç¯å²ã§å€åãããŠfãçŽ æ°ã«ãªããã®ãæ¢ããŠããŸãã
8193613126657808805087106 ã«ã€ããŠã¯ããã¡ãã®ç°å¢ã§ã°ã°ããš
âãã®ãµã€ããèŠã€ãããŸãã
math.stackexchange.com/questions/5074339/pillais-sum-of-gcd-arithmetical-function-and-primality
ãã¡ãã§ã¯1幎åã«åãå€ãçºèŠãããŠããŸãã®ã§ãç§ãA018804ã«ç»é²ããã®ã¯ã¡ãã£ãšâŠ
No.3243ãããã8æ31æ¥ 12:22
ã²ãŒãã«æ°åã¯è²ã
ãªéšåã«ãã£ãŠç°ãªãå®çŸ©ã§ç€ºãããŠããŸããã
A003504ãã§ã¯
a(0)=a(1)=1; thereafter a(n+1) = (1/n)*Sum_{k=0..n} a(k)^2 (a(n) is not always integral!).
1,1,2,3,5,10,28,154,
ã䞊ãã§ãã,a(43)ãŸã§æŽæ°ã§a(44)ã§æçæ°
ããäžè¬å(2ä¹ãkä¹ã«ããŠk-Gobel sequence)ãããã®
A108394 ã§ã¯
Least k for which f(k) = (1 + f(0)^n + f(1)^n + ... + f(k-1)^n)/k, f(0) = 1
n=2-->1,2,3,5,10,28,154,
ã䞊ã³f(42)ãŸã§ãæŽæ°ã§f(43)ã§æçæ°
n=3-->1,2,5,45,22815,2375152056927,
ã䞊ã³f(88)ãŸã§ãæŽæ°ã§f(89)ã§æçæ°
n=4-->1,2,9,2193,5782218987645,
ã䞊ã³f(96)ãŸã§ãæŽæ°ã§f(97)ã§æçæ°
n=5-->1,2,17,473297,5937570334133678310135701537,
ã䞊ã³f(213)ãŸã§ãæŽæ°ã§f(214)ã§æçæ°
ãããã¯å
±éããŠf(1)=2ãšãªãã¿ã€ããšããŠäžŠã¶ããšã«ãªãã®ã§
ããã®ãããf(1)>=2 (å³ã¡f(1)=3,4,5,6,ãšå€åãããããšãå«ã)
A097398ã§ã¯
Matrix T(m,x(1)), m>=1, x(1)>=2, read by antidiagonals,
where T(m,x(1)) gives the position of the first noninteger term in the sequence
defined by x(n)=(x(n-1)*(x(n-1)^m+n-1))/n for n>=2
with exponent m and the given starting value x(1)
ãšããŠ
m\x1:--,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,10 ,11
1;--,43 ,7 ,17 ,34 ,17 ,17 ,51 ,17 ,7 ,34
2;--,89 ,89 ,89 ,89 ,31 ,151 ,79 ,89 ,79 ,601
3;--,97 ,17 ,23 ,97 ,149 ,13 ,13 ,83 ,23 ,13
4;--,214 ,43 ,139 ,107 ,269 ,107 ,214 ,139 ,251 ,107
5;--,19 ,83 ,13 ,19 ,13 ,37 ,13 ,37 ,347 ,19
6;--,239 ,191 ,359 ,419 ,127 ,127 ,239 ,191 ,239 ,461
7;--,37 ,7 ,23 ,37 ,23 ,37 ,17 ,23 ,7 ,37
8;--,79 ,127 ,158 ,79 ,103 ,103 ,163 ,103 ,163 ,79
9;--,83 ,31 ,41 ,83 ,71 ,83 ,71 ,23 ,41 ,31
10;--,239 ,389 ,169 ,137 ,239 ,239 ,239 ,239 ,239 ,389
ã®è¡šãäœãããŠããã
確èªã®ãã
gp > gobel_kl(k, l, N) =
{
my(v = vector(N));
v[1] = l;
for(n = 1, N-1,
v[n+1] = v[n] * (n + v[n]^(k-1)) / (n+1);
);
return(v);
}
ãšããã°ã©ã ãçµã¿
äžèšè¡šã§æãå°ãªãæ°ã§(m,x1)=(1,3),(1,10)ã§ã®7ã確èªããŠã¿ããš
gp > gobel_kl(2, 3, 7)
%21 = [3, 6, 16, 76, 1216, 247456, 61235956672/7]
gp > gobel_kl(2, 10, 7)
%22 = [10, 55, 1045, 273790, 14992411852, 37462068869158688194, 1403406603957588515490448060329867110800/7]
ãšãªã確ãã«ç¬¬7é
ç®ãåããŠæçæ°ãšãªã£ãŠããŸãã
ããäœã®å€§ãããªãååéåžžã®ã³ã³ãã¥ãŒã¿ã®èšç®ã§ç¢ºèªã¯åããã
äžèšã®
n=5-->1,2,17,473297,5937570334133678310135701537,
ã䞊ã³f(213)ãŸã§ãæŽæ°ã§f(214)ã§æçæ°
ãªã©ã®æ§åãªã©æãã¹ãããããŸããã
äžäœã©ã®æ§ã«ããŠèª¿ã¹ãã®ãæããŠã»ããã
No.3229GAI8æ25æ¥ 07:21
f(213)ã214ã§å²ã£ãäœãããããã°ãã
âf(212)ã213*214ã§å²ã£ãäœãããããã°ãã
âf(211)ã212*213*214ã§å²ã£ãäœãããããã°ãã
âã»ã»ã»
ãšããããšã§ãã®ã§ãäŸãã°
gobel_kl(k,l,N)=
{
x=l;
for(n=1,N-1,
x=x%(N!/(n-1)!);
x=x*(n+x^(k-1))/(n+1);
);
return(x);
}
for(i=3,300,print(i," ",gobel_kl(5,2,i)))
ã®ããã«ãããšf(214)ãéæŽæ°ã§ããããšãããããŸããã
# çç±ãããããããªãã®ã§ãããéæŽæ°ãåºãŠãããš
# 次ã®x=x%(N!/(n-1)!)ã§ãšã©ãŒã«ãªããŸãã®ã§ã
# æåã®éæŽæ°ãŸã§è¡šç€ºããŠãšã©ãŒçµäºããŸãã
# ïŒéæŽæ°ãåºçŸãããçµäºãšããããžãã¯ãçç¥ã§ããŠäŸ¿å©ã§ã¯ãããŸãïŒ
No.3231ãããã8æ27æ¥ 04:45
ãã®ããã°ã©ã ã§ã©ãã§æçæ°ãšãªãå Žæã倿ã§ããã®ã§ããã
ããã§ãã®ããã°ã©ã ã䜿ã£ãŠ
A288641ã«äžŠãã§ããæŽæ°ãç®åºããŠããã
forprime(i=3,900,print(i," ",gobel_kl(5,2,i)))ã§

193 132351082600315838701
197 3340985130460343217
199 841924060846945
211 11068272793562666699
*** at top-level: ...rime(i=3,900,print(i," ",gobel_kl(5,2,i)))
*** ^-----------------
*** in function gobel_kl: x=l;for(n=1,N-1,x=x%(N!/(n-1)!);x=x*(n+x^(k-1)
*** ^---------------------------
*** _%_: impossible inverse in Fl_inv: Mod(0, 107).
ã®è¿ããèµ·ããA288641ã§ã®n=5ã§ã®å€251ã«ã²ã£ãããªãã®ã§ãã
nïŒ2~20ãŸã§ã¯n=5以å€ã§ã¯ã¡ãããšæ£è§£ã®å€ãäžããŠãããŸãã
ãã®éšåã®è¬ã¯äœãªã®ã§ããããïŒ
No.3232GAI8æ27æ¥ 16:09
åå ã®äºæ³ã¯ã€ããŸããã察çã¯ã©ãããã°ãããããããŸããã
n=5ã®ãšãæåã«éæŽæ°ã«ãªãã®ã214ã§ããã214ãçŽ æ°ã§ãªããã
ãšããçç±ã ãšæããŸãããéæŽæ°ã«ãªã£ãŠããŸããšmodæŒç®ã
ã§ããªããªã£ãŠä»ã®æ¹åŒã§ã¯äžéœåã§ãã
n=2ïœ20ã¯n=5ãé€ããã¹ãŠããŸããŸçŽ æ°é
ã§éæŽæ°ã«ãªããŸããã
å°ãå
ãèšç®ãããšn=22ã®ãšããçŽ æ°ã§ãªã94ã§éæŽæ°ã«ãªã£ãŠããŸã
179ãåŸãããŸããã
éæŽæ°ã5ä¹ãšã22ä¹ãšããããšãã£ãšããéã«åå忝ã
巚倧ã«ãªã£ãŠããŸãã®ã§ããŸããªãã§ããã
ããŠãã©ãããŸãããïŒ
(远èš)
äžã®ããã°ã©ã ã§æ±ãŸã43, 89, 97, 214, 19,ã»ã»ã»ãšããæ°åã¯A108394ã§ããã
No.3233ãããã8æ27æ¥ 18:35
ããã䜿ããšãŠã£ããA288641ãèŠã€ãããšæã£ãŠãã£ãŠããŸããã
No.3234GAI8æ28æ¥ 06:24