[seqfan] Re: A024812

[Robert G. Wilson v]

Et al,

	I agree with Harvey that something is terribly wrong.

	Using the Mmca coding: f[n_] := Floor[Tan[Pi (1 - 1/n)/2]]; Select[
Range[2, 100], f[# - 1] < f[#] < f[# + 1] &]

	I get the following terms: 
{4, 7, 12, 15, 18, 23, 26, 29, 34, 37, 40, 45, 48, 51, 54, 59, 62, 65, 70,
73, 76, 81, 84, 87, 92, 95, 98, 103, 106, 109, 114, 117, 120, 125, 128, 131,
136, 139, 142, 147, 150}
	verses
2, 4, 7, 9, 11, 14, 16, 18, 21, 23, 25, 28, 30, 32, 34, 37, 39, 41, 44, 46,
48, 51, 53, 55, 58, 60, 62, 65, 67, 69, 72, 74, 76, 79, 81, 83, 86, 88, 90,
93, 95, 97, 100, 102, 104, 107, 109, 111, 114, 116, 118, 121, 123, 125, 128,
130, 132, 135, 137, 139, 142, 144, 146, 149, 151, 153

	Nothing lines up.

Bob.

-----Original Message-----
From: SeqFan [mailto:seqfan-bounces at list.seqfan.eu] On Behalf Of Harvey P.
Dale
Sent: Tuesday, March 19, 2013 6:09 PM
To: Sequence Fanatics Discussion list
Subject: [seqfan] A024812

	Following the definition of the above sequence, I generate terms
that are very different from the terms provided.
	Best,
	Harvey
 


_______________________________________________

Seqfan Mailing list - http://list.seqfan.eu/