10 point 224
20 Pi=cutspc(str(#pi)):Pi=left(Pi,1)+mid(Pi,3,*)
30 for N=1 to 1000
40 Tot1=Tot1+val(mid(Pi,N,1)):Tot2=Tot2+val(mid(Pi,N+1,1))
50 if Tot1 @ 111=0 then
60 :M=Tot1//111
70 :if 4*M*M=N then print N,M,Tot1,"tot1"
80 if Tot2 @ 111=0 then
90 :M=Tot2//111
100 :if 4*M*M=N then print N,M,Tot2,"tot2"
110 next N
OK
run
Words for fractionals 224 (Decimals for display 1078)
144 6 666 tot2
OK
This shows that n = 144 and m = 6, making 111*m = 666, the number of the beast according to Revelation (the Apocalypse), the last book of the New Testament.
The notation "tot2" indicates that the counting for n begins at the 1 after the decimal point, rather than the 3 at the beginning of pi.
The 144 digits involved that add up to 666 are given by:
?mid(pi,2,144)
14159265358979323846264338327950288419716939937510582097494459230781640628620899
8628034825342117067982148086513282306647093844609550582231725359
|
Posted by Charlie
on 2012-05-13 12:51:51 |