Rosetta Code

Wieferich primes: Difference between revisions

Page Discussion

Wieferich primes (view source)

Revision as of 04:01, 8 July 2021

183 bytes removed ,  2 years ago
m
→‎{{header|REXX}}: changed some comments and whitespace.
m (→‎{{header|REXX}}: simplified program, added/changed whitespace and comments.)
m (→‎{{header|REXX}}: changed some comments and whitespace.)
Line 558:
!.=0; !.2=1; !.3=1; !.5=1; !.7=1; !.11=1 /* " " " " (semaphores).*/
#= 5; sq.#= @.# **2 /*number of primes so far; prime². */
do j=@.#+2 by 2 to n-1; parse var j '' -1 _ /*find [↓] generate more odd primes from ≤ here highon.*/
doif j_=@.#+2=5 bythen 2iterate to n-1 /*find odd primes from here on. /*get right digit; J ÷ by 5? */
parse varif j//3==0 '' -1then _iterate; if _j//7==50 then iterate /*J divisible÷ by 53? (right dig)J ÷ by 7? */
if j// 3==0 then iterate /*" " " 3? */
if j// 7==0 then iterate /*" " " 7? */
do k=5 while sq.k<=j /* [↓] divide by the known odd primes.*/
if j//@.k==0 then iterate j /*Is J ÷ a P? Then not prime. ___ */
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/312504"