Search
 
 
  Engleski
 
 
 
Open in this window (click to change)
Forum@DeGiorgi: Početna
Forum za podršku nastavi na PMF-MO
Login Registracija FAQ Smajlići Članstvo Pretražnik Forum@DeGiorgi: Početna

Program koji provjerava duljinu perioda prostih brojeva... (zadatak)

Moja sarma
 
Započnite novu temu   Odgovorite na temu   printer-friendly view    Forum@DeGiorgi: Početna -> Ostalo - ozbiljno -> Čistilište
Prethodna tema :: Sljedeća tema  
Autor/ica Poruka
StateOfConsciousness
Forumaš s poteškoćama u pisanju
Forumaš s poteškoćama u pisanju


Pridružen/a: 22. 07. 2008. (16:08:24)
Postovi: (8A)16
Sarma = la pohva - posuda
-37 = 11 - 48

PostPostano: 20:53 sri, 5. 11. 2008    Naslov: Program koji provjerava duljinu perioda prostih brojeva... Citirajte i odgovorite

Bok. Treba mi pomoć. Loš sam u programiranju a želio bih barem "parcijalno" provjeriti jednu slutnju koja mi je nedavno sinula a ta je da između 10^(k-1) i 10^k postoji prosti broj p kojem takav da je duljina perioda broja 1/p jednaka p-1, za svaki k. Dakle, bi li netko znao napisati program koji provjerava da li se između 10^(k-1) i 10^k nalazi barem jedan prosti broj p kojem takav da je duljina perioda broja 1/p (u npr.bazi 10) jednaka p-1 (tj.za jedan manja od njegove vrijednosti), za nekoliko početnih vrijednosti od k, k je iz [b]N[/b]. Unaprijed zahvaljujem vama koji znate i želite napisati taj program.

P.S. Naravno, onaj tko napiše program i izvrši ga neka ovdje objavi rezultate koje je dobio....
Bok. Treba mi pomoć. Loš sam u programiranju a želio bih barem "parcijalno" provjeriti jednu slutnju koja mi je nedavno sinula a ta je da između 10^(k-1) i 10^k postoji prosti broj p kojem takav da je duljina perioda broja 1/p jednaka p-1, za svaki k. Dakle, bi li netko znao napisati program koji provjerava da li se između 10^(k-1) i 10^k nalazi barem jedan prosti broj p kojem takav da je duljina perioda broja 1/p (u npr.bazi 10) jednaka p-1 (tj.za jedan manja od njegove vrijednosti), za nekoliko početnih vrijednosti od k, k je iz N. Unaprijed zahvaljujem vama koji znate i želite napisati taj program.

P.S. Naravno, onaj tko napiše program i izvrši ga neka ovdje objavi rezultate koje je dobio....



_________________
Look at every path closely and deliberately. Try it as many times as you think necessary. Then ask yourself,
and yourself alone, one question . . . Does this path have a heart? If it does, the path is good; if it doesn’t it is of no use.
Carlos Castaneda, The Teachings of Don juan


Zadnja promjena: StateOfConsciousness; 13:20 sri, 26. 11. 2008; ukupno mijenjano 1 put.
[Vrh]
Korisnički profil Pošaljite privatnu poruku
StateOfConsciousness
Forumaš s poteškoćama u pisanju
Forumaš s poteškoćama u pisanju


Pridružen/a: 22. 07. 2008. (16:08:24)
Postovi: (8A)16
Sarma = la pohva - posuda
-37 = 11 - 48

PostPostano: 10:23 čet, 6. 11. 2008    Naslov: Citirajte i odgovorite

Nije valjda da nitko ne zna ovo gore isprogramirati? :cry:
Nije valjda da nitko ne zna ovo gore isprogramirati? Crying or Very sad



_________________
Look at every path closely and deliberately. Try it as many times as you think necessary. Then ask yourself,
and yourself alone, one question . . . Does this path have a heart? If it does, the path is good; if it doesn’t it is of no use.
Carlos Castaneda, The Teachings of Don juan
[Vrh]
Korisnički profil Pošaljite privatnu poruku
Veky (d'oh!)
Gost





PostPostano: 1:28 sub, 3. 1. 2009    Naslov: Citirajte i odgovorite

[quote="StateOfConsciousness"]Nije valjda da nitko ne zna ovo gore isprogramirati? :cry:[/quote]

Mah...

[code:1]ok@p_ := Divisible[PowerMod[10, p - 1, p] - 1, p] \[And]
MultiplicativeOrder[10, p] == p - 1 \[And] p \[Element] Primes
c1@k_Integer?Positive := (For[i = 10^(k - 1), \[Not] ok@i,
i = NextPrime@i]; i < 10^k)
c2 := For[j = 1, True, ++j, Print[j, c1@j]]
[/code:1]

Ukratko... stvar vrijedi bar do k=64. Naravno, vjeruje se da vrijedi i općenito (Artinova hipoteza), ali dokaz ne postoji, kao što to obično biva s primbrojevima. :-)

HTH,
StateOfConsciousness (napisa):
Nije valjda da nitko ne zna ovo gore isprogramirati? Crying or Very sad


Mah...

Kod:
ok@p_ := Divisible[PowerMod[10, p - 1, p] - 1, p] \[And]
  MultiplicativeOrder[10, p] == p - 1 \[And] p \[Element] Primes
c1@k_Integer?Positive := (For[i = 10^(k - 1), \[Not] ok@i,
   i = NextPrime@i]; i < 10^k)
c2 := For[j = 1, True, ++j, Print[j, c1@j]]


Ukratko... stvar vrijedi bar do k=64. Naravno, vjeruje se da vrijedi i općenito (Artinova hipoteza), ali dokaz ne postoji, kao što to obično biva s primbrojevima. Smile

HTH,


[Vrh]
StateOfConsciousness
Forumaš s poteškoćama u pisanju
Forumaš s poteškoćama u pisanju


Pridružen/a: 22. 07. 2008. (16:08:24)
Postovi: (8A)16
Sarma = la pohva - posuda
-37 = 11 - 48

PostPostano: 18:27 pet, 20. 2. 2009    Naslov: Citirajte i odgovorite

Hvala ti puno.
Hvala ti puno.



_________________
Look at every path closely and deliberately. Try it as many times as you think necessary. Then ask yourself,
and yourself alone, one question . . . Does this path have a heart? If it does, the path is good; if it doesn’t it is of no use.
Carlos Castaneda, The Teachings of Don juan
[Vrh]
Korisnički profil Pošaljite privatnu poruku
Prethodni postovi:   
Započnite novu temu   Odgovorite na temu   printer-friendly view    Forum@DeGiorgi: Početna -> Ostalo - ozbiljno -> Čistilište Vremenska zona: GMT + 01:00.
Stranica 1 / 1.

 
Forum(o)Bir:  
Ne možete otvarati nove teme.
Ne možete odgovarati na postove.
Ne možete uređivati Vaše postove.
Ne možete izbrisati Vaše postove.
Ne možete glasovati u anketama.
You can attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2002 phpBB Group
Theme created by Vjacheslav Trushkin
HR (Cro) by Ančica Sečan