File: mersenne

package info (click to toggle)
saml 970418-3
  • links: PTS
  • area: main
  • in suites: slink
  • size: 1,204 kB
  • ctags: 1,701
  • sloc: ansic: 17,182; sh: 2,583; yacc: 497; perl: 264; makefile: 250; python: 242
file content (13 lines) | stat: -rwxr-xr-x 213 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/bin/sh
#
# Factorize 2^N-1 for the small values of N.
#
PATH=$PATH:.:../samuel
N=1
while true; do
	X=`echo "2^$N-1;" | samuel | tr -d +`
	echo "2^$N-1	= $X = "
	echo -n "  "
	factorint $X
	N=`expr $N + 1`
done