|
%I #9 Jun 21 2018 01:59:46
%S 2,5,8,11,14,17,19,22,25,28,31,34,37,39,42,45,48,51,54,57,59,62,65,68,
%T 71,74,77,79,82,85,88,91,94,97,99,102,105,108,111,114,117,119,122,125,
%U 128,131,134,137,139,142,145,148,151,154,157,159,162,165,168,171,174
%N A Beatty sequence for 2^i + 2^-i where i = sqrt(-1).
%C 2^i + 2^-i ~= 1.53847780272794425315665998732254140... ~= 20/13.
%H Harry J. Smith, <a href="/A064718/b064718.txt">Table of n, a(n) for n = 1..2000</a>
%t a = Chop[ N[ 2^I + 2^-I, 36], 10^-40]; Table[ Floor[n*a/(a-1)], {n, 1, 75} ]
%o (PARI) { default(realprecision, 100); b=real(2^I + 2^-I); b=b/(b - 1); for (n = 1, 2000, write("b064718.txt", n, " ", floor(n*b)) ) } \\ _Harry J. Smith_, Sep 23 2009
%Y Cf. A064717.
%K easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Oct 13 2001
|
