#! perl -nwa BEGIN{ print " Twin Primes

Twin Primes

Twenty pairs of Twin Primes in the neighborhood of each power of two. The left column gives the exponent of 2, the to the right are positive and negative deltas to the midpoint of the twin primes. For example, 2^7-20 +/- 1 (i.e., 128-20-1=107 and 128-20+1=109 are prime). The powers of two are consective until about 788.

There is also a more machine readable plain text version at twin-primes.txt

\n"; } next unless @F==21; @B=@F[11..20];@A=@F[1..10]; $x=$F[0]; print ""; print "\n"; END{print "

2^$x	`"; for (reverse @A) { #print "-"; print &fcomma($_); print " "; } print "`
`"; for (@B) { print "+"; print &fcomma($_); print " "; } #print "`	hi

"; print `date`; print "\n";} sub fcomma { my $x=shift; #my @S=split//; for ($x) { s/(\d)(\d\d\d)$/$1,$2/; while (s/(\d)(\d\d\d),/$1,$2,/) { } } $x; }