A064718 - OEIS

%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