News means whole world is chasing funnys madness. Irregular events. Asteroid love rare calcn. 100 y every wk. Imposs win loto. Odds.

Posted on by mcdonewt

Write life.. If all 8 letters dictionary. Then 154 bn-th word. Numb plate game. Rachel blog wp.

Posted on by mcdonewt
He run into?? Lot of musicians. Abbrev catch phrase. Imagination. 3 prime nos +6 ++
Letter values 3-1-20-3.. Word score? Encyc.
These can b called sexy primes p+6..
I meet good blog person.
Rare captions. Don clever program

Program continued frac primes. 22 Contd Frac. Method. 25.4.23

Posted on by mcdonewt

REM Start of BASIC! Program
? “progm COHCFracFacMeth, 21. COntd by Don S newt mcdonald 23.4.23. Sunn 2.15 NOON 3.38, 24.4 3.12 noon

?” unfortunately pgm 2 Co kept crashing pls pickup from 21 Co. Xx go 22 Co skip some detail so only 1170* primorials. Then start and step. Soon

? “sori pgmm 2 Co crash badly recovery 21 this good 24.4.23 * and 22. Was testing fn tstpr$. ¶¶25.4 8.morn better prog” 😕 “I will think Ltd 9 letters?

?” that was so lucky Simplify struggle 60y for loops. So pleased.
? “now will hcf seqce 5m some v interesting results about hr. Some bugs. 3.29 noon 10.33 nite chrs KEEP ¶¶¶ §§”:pause 5000
K=7
Dim p[13000]:k2=1:pk=1

! ==== —

Fn.def gematria(NN$)

PRINT “■ ENTER 12- CHAR WORD OR PHRASE●”,NN$
  NN =0

PRINT “Gematria. this is wisdom. he under-“
PRINT”stand count the number of his name.”
!  PRINT”char 96 “;CHR$(96)
PAUSE 4000

FOR  CC=1 TO LEN(NN$)
CCN=ASCII(MID$(NN$,CC,1))
IF CCN>63 THEN

IF CCN<=ASCII(“z”) THEN CCN=MOD (CCN,32)
!
IF CCN<27 THEN
IF 27.1 *NN< 8e11 THEN NN=27*NN +CCN :PRINT LEFT$(NN$,CC);” “;

ENDIF
! ■■■ CUMULATE GEMATRIA

IF NN> 10^9 THEN
PRINT NN
IF NN > 2^53/27 THEN CC=LEN(NN$)

ELSE
NNN$ =STR$(NN)
PRINT LEFT$(NNN$,LEN(NNN$)-1);

IF CCN<27 THEN
PRINT ” X27 +letter “+MID$(NN$,CC,1)+LEFT$(STR$(CCN),2)
  ENDIF
! A1,Z26″
ENDIF

PAUSE 1200
ENDIF :! SKIP NON ALPHA ■■ CHARS
NEXT CC

PRINT NN$;”(base27 a.z”
! PAUSE  7000

PRINT “gematria return numeric of word.”
Print NN$: print “take screenshot”:PAUSE 8000
Fn.rtn NN
Fn.end
! xxx. ====

Fn.def word27(P) % ——-■■

WORD =P: W $=””
FOR WP=1TO 12
b27 =MOD (WORD,27)
W $=CHR $(b27+64)+ W$
WORD =INT (WORD/27)
IF WORD =0 THEN WP=12
NEXT WP
PRINT”b27= word “;

FOR WP =1 TO 10 STEP 3
PRINT MID$(W$,WP,3)+” “;
NEXT WP

Print”prog 22 COntdFrac 25.4.23 meth
Fn.rtn P
Fn.end

! —–●●●●

PRINT”MAIN ROUTINE STARTS.●●● set 1170″

For n=11 to 1e5 step 2
For j=3 to sqr(n) step 2
J1=j
If mod(n, j1) =0 then next n
Next j % take pgm coding chance
! More or less prime
K1=k*n
If k1<2e14 then k=k1: pk+=1:next n
Print” primorL “;k;

P[k2]=10*k+pk-2:k=n:k2+=1:?” “;left$(str$(k2), 5):pk=1
If k2=1170 then ?”how n max prime prod routine ” ;n: for n= n to 2
Next n

DO
DO
! 

Pause 6500
INPUT”ent start yyyy integ date? initL provisNL (fract drop)*10^n, 0=switch word”,y,15
y=INT(y) : NN$=STR$(y)
IF y=0 THEN
INPUT”switch to alpha word value input.”,NN$
y= gematria (NN$)
y+= 1-MOD(y,30)
input”adjust value “,y,y
print “adjusted value input.”,y

ENDIF

print y:pause 4000
do
input “mult x fraction until 1.”,t, 1
y=y*t : print t,y: pause 3009
until t=1
print “make 6n+1”
y=6*int(y/6) +1


INPUT” ok? recomm 15 dig x e14● ent corrxn or choose, make -canxel”,y,y
IF y<0 THEN y= 3e11
  UNTIL y< 2^50

y1= 2*INT(y/2)+1 :! shld pretty elim 2
IF y1<9 THEN y1=9

X=y1 %

?” How n prime tests cunng quite hapi¶¶¶¶ ” ;n
!
!?” another”:pause 7009

! put” sequence start 6n+1″,x, x
While x>8e11
X=(x/10):? X, “make less 1 tr 12”:repeat
X=6*int(x/6)+1
Input”adjust “, x, x

input” step”, xs, 2
Xs=2*int(xs/2)
?”start and step”, x, xs
Pause 6000

For x=x to x+140*xs step xs
X1=x
! Make coprime 30
While MOD(X1,2)*MOD(x1,3)*MOD(X1,5)=0
X1+=xs :repeat % NEXT X

X=x1
For q=1 to 1170:x1=x
Q1=Q %:Print format$(“###,####,####/###”, x1) ;% Q1, p[Q1], ” mod”
Z=mod (p[Q1], 10) % complicated nice
Z= MOD(int( p[Q1] /10) , x1)

! Made awful mess pgm 2 Co lost aband
Do
R=mod( z,x1)
Z=x1:x1=r
If r=0 then
Z$=str$(z) :z1=len (z$) – 2
  If z<3e5 then
? “fac ” ;left$(z$,z1);” cof” ;
Else
? “PRIME?” ;
ENDIF
? format$(“###,####,####:###”, x) ;
If z>3e5 then ? ” ¶¶¶” ;
Print

Y=x/z^2
If y=int(y) then? Y;” fac again? Good ¶¶” :pause 4009

If z=11 then? “dictny num¶¶ ” ;:word27( x):pause 4000

q=1170 :endif

Until r<2
! ” Hcf=” ;z;

Next q
!? X; ” run out of tests” %. perh prim probs ¶¶¶”

Next x
?”prog great strides well. on first day 23.4 COHC FracFac. playing this idea 40 years.
Until 0
End

Ingenious program. believe know how fix bugg. Insight prime factors. Android basic. Frqcy go new 21 Co ntd frac April ’23

Posted on by mcdonewt

Don new prgmm 21 COntdFrac factor 5 trilln success 60year android. #Wordnumber.

Posted on by mcdonewt