a[0]:0; recaman:set(0); recaman_next(n):=block([x:a[n-1]-n], if (x > 0) and not elementp(x, recaman) then ( a[n]:x, recaman:adjoin(x, recaman)) else ( a[n]:a[n-1]+n, recaman:adjoin(a[n], recaman))); for i:1 thru 30 do (recaman_next(i), print(i,"=",a[i])); 1 = 1 2 = 3 3 = 6 4 = 2 5 = 7 6 = 13 7 = 20 8 […]
Monthly Archives: December 2019
A very simple number sequence is n(0)=2, n(1)=23, n(2)=235, n(3)=2357, n(4)=235711, n(5)=23571113 where n(i+1) is the i+1 prime concatenated with n(i). So n(1) = concat(2, n(0)) = 23. This is called by many as the Smarandache sequence. Maxima code for this is, smarandache(n):=block([p:0,l:""], for i:0 thru n step 1 do […]
I read with interest the article in the New York Times, Thursday December 19, 2019, entitled “Police Badgered Boy Accused in Barnard Killing”. I take personal interest in this, because I lived with my big brother up in 125th Street near Morningside park in 1978. It was common knowledge back […]
As usual, the default debian commands don’t do the job. I tried running pdflatex and got some indecipherable errors about a font not found. apt install texlive-latex-extra takes an inordinate time to complete, but it did the trick. pdflatex is now operative.